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Freiburg, 25.2.82 


Dr. Wolfgang Werbeck 
D-78 Freiburg 

Innsbrucker Straße 2 

Telefon 49 45 77 


letter from mr Werbeck 


Herrn 

W. Hermans 

Heide 4 

B-5171 Westmeerbeek 


Lieber DAInamic-Freund. 


Beim Blättern in älteren Heften der Elektronik-Zeitschrift 
"Elektor" (in den Niederlanden "Elektuur") fand ich in der 
Dezember-Nummer 1981 einen interessanten Artikel mit dem 

Titel "IPROM". Ich dachte dabei sofort an den leeren e4-poligen 
Sockel auf dem Board meines DAI P.C. Denn der Arithmetic 
Processor AM9511 ist mir viel zu teuer. 

Beim IPROM wird ein 2 K x 8 Bit - RAM (HM 6116 LP, Preis 

DM 40,00) als "Pseudo-ROM" verwendet. Man kann - nach ent- 
sprechendem Aufbau mit zusätzlichen Bauteilen - ein Programm 
wie bei einem RAM einfach laden. Es ist dann durch einen kleinen 
Schalter vor Überschreiben geschützt und bleibt mit Hilfe von 
zwei Knopfzellen auch nach Abschalten des Computers erhalten. 
Man benótigt also weder ein Programmiergerät noch ein Lösch- 
gerät und hat dennoch ein ROM, in das man jederzeit ein neues 
Programm einschreiben kann. 

Leider ist die Anschlußbelegung des freien Sockels völlig 
ungeeignet für die Aufnahme eines IPROMs. 

Fragen Sie doch einmal einige Hardware-Spezialisten im 

DAlnamic Club, ob sie eine Lösung für dieses Problem wissen. 


Ich habe mir übrigens die vier zusätzlichen Tasten nach der 
Bauanleitung von Herrn Dessart (DAlnamic Nr.7,5.207 ff.) 
eingebaut und bin sehr zufrieden damit. 


Mit besten Grüßen 


д). Кес. 


IMP INT  Xxxxxuk GETALLEN 19535144 ІМР ЕРТ 
We kennen in programma’s vele plaatsen waar gebruik gemaakt 
wordt van getallen. Deze getallen kunnen echter op verschil- 
lende manieren voorkomen en niet iedereen is bekend met of 


zich bewust van deze verschillen. 


I) Getallen kunnen voorkomen als constanten of als variabelen 
Voorbeeld: DOT X,Y+2 9 hier zijn X en Y variabelen en 2 en 

9 constanten. 

II) Getallen kunnen voorkomen in drie vormen in een programma 
als geheel getal (integer) of als breuk (floating point); de 
derde verschi jningsvorm is hier niet interessant nameli jk 

de geschreven vorm (string). 


Om alle misverstanden te voorkomen wil ik nu reeds van tevo 
ren zeggen dat de programmeur in alle gevallen bepaalt welk 
type een getal zal zijn. 


U weet waarschijnlijk al uit de foutmeldingen dat getallen 
in elk type binnen bepaalde grenzen moet liggen. 
Bij gehele getallen (integers) zijn deze grenzen +/- 2°31, 
bij drijvende komma getallen (brrrr floating point dus) heb 
ik destijds vastgesteld dat de grenzen hier afhankelijk zijn 
van de omstandigheden. In een programma kon ik de variabele 
op de waarde 9.22618 krijgen maar bij invoer van C-8E18 kreeg 
ik reeds overflow. 
Als we in een programma trouwens de waarde van een variabele 
steeds laten toenemen krijgen we op den duur OVERFLOW; ook 
als we een getal steeds kleiner laten worden (zonder de min 
ervcor steeds groter) krijgen we OVERFLOW. 
Als we een variabele echter door delen met een getal groter 
dan 1 kleiner laten worden (het getal komt steeds dichter bij 
nul) krijgen we geen waarschuwing van de DAI voor deze UNDER 
FLOW maar wordt de variabele gewoon nul gemaakt. 
Hier dient in bepaalde gevallen wel degelijk rekening mee ger 
houden te worden:Als we een getal eerst honderd maal halveren 
en dan honderd maal verdubbelen zouden we het oorspronkelijke 
getal terug moeten krijgen, we zullen afhankelijk van de 
startwaarde iets anders krijgen, meestal nul. 
programma: IMPFPT 

10 A=125 

20 FOR I=1 TO 100: А=А/2: NEXT 

30 FOR I=t TO 100: A=Ak2: NEXT 

40 ?А 
Bij het bestuderen van programma's van anderen heb ik vaak 
moeten vaststellen dat het niet bij iedereen bekend is dat 
programma’s sneller werken als integerwaarden gebruikt wor- 
den. Een ander voordeel van het gebruik van integers ligt in 
de logica: ik vind het vreselijk als iemand (via zijn/haar 
DAlprogramma beweert dat ik door een bepaalde slag of zet 
3.0 pionnen heb veroverd, alsof je er сок 2.74653 zou kunnen 
veroveren. Ik hoor nu al de protesten: Ja maar dat wilde ik 
niet dat deed de DAI. Klopt omdat U hem daartoe de opdracht 
gaf al geef ik toe dat het vaak een impliciete opdracht is 
geweest en waar U niet aan gedacht hebt. De meest vergeten 
opdracht van dit type is de opdracht IMP ЕРТ die U (ja U) 
geeft door de DAI aan te zetten of reset te geven. 
Na deze IMP FPT zijn alle variabelen en vele (niet alle) con 
stanten van het fpt-type. 
Eerst gaan we wat in op het snelheidsaspect. Ik hoop dat u 
mij niet gelooft en ik zal ook niet trachten iemand te over- 
tuigen als de DAI dat voor mij kan doen. 
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Ga achter de DAI zitten, zet hem aan af reset en tik in: 

10 MODE 1:К-10 

20 A=0:B=0 

50 DRAW XMAX-1,YMAX-2 А+1,В+1 K 

40 B=B+t2: IF В+1<ҮМАХ-1 GOTO 50 

SQ IF К<>0 THEN B=0:K=0:60T0 30 

60 END 

Geef RUN en tracht de tijd vast te stellen die de DAI hier- 
voor nodig heeft, eventueel programma uitbreiden met 5 J=0 

en 55 J=J+1: IF J<50 GOTO 10. 

geef LIST en zie dat het programma niet meer is wat U intikte. 
Geef nu reset of machine uit/aan en tik weer precies hetzelf- 
de in, tik RUN en ik denk dat U overtuigd bent. 

N.B. het progamma is ter demonstatie het kan heus sneller: 

10 МОрЕ2: М=ХМАХ- 1: М№ҮМАХ-1: РОК K-10 TO 0 STEP -10 

20 FOR B=1 TO М STEP 2:DRAW M.N 1,B K:NEXT:NEXT:END 


Als U de listing van de fpt-versie nag herinnert zult U op- 
gemerkt hebben dat er 20 A=0,0:B=0.0 stond. De ingevoerde 
constanten blijken automatisch in fpt-notatie te staan. 
Vreemd genoeg blijkt echter in regel 30 dat de daar ingevoer- 
de constanten wel in de door ons ingetikte vorm staan. 

We kunnen dit begrijpen als we in het handboek lezen dat ge- 
tallen voor de bepaalde gebruikstoepassingen vaak in een 
standaard vorm verwacht worden. 

Bij een toewijzing zoals regel 20 kijkt DAI naar IMPINT resp 
IMPFPT maar bij een DRAW als regel 30 verwacht hij integers. 
Zijn variabelen of constanten niet in de verwachtte vorm, zet 
de DAI ze voor ons om naar het juiste type. Dit kost echter 
wel tijd!!!! 

We analyseren de hopeloze regel 30: 

Voor elke keer wordt de XMAX en YMAX aangeroepen. 

Elke keer wordt deze constante met een constante verminderd 
het resultaat is dus ook ... constant. 

Bij de variabele A ‚die overigens een constante waarde heeft 
wordt volkomen overbodig elke keer 1 opgeteld, we hadden A 
vanzelfsprekend 1 groter kunnen definieren. Maar het is nog 
erger: bij A een fpt-variabele wordt 1 een int-constante op- 
geteld. Dit is onmogelijk en dus wordt eerst de integer om- 
gezet in fpt, daarna de optelling gedaan en dan wordt het 
geheel weer omgezet in int voor de DRAW-opdracht. 

U kunt zelf nagaan dat zeer veel instructies integers ver- 
wachten of daar aok mee kunnen werken, als U ze echter fpt 
voert protesteren ze niet maar straffen U wel af door het 
programma trager af te werken of zelfs andere dingen te doen 
dan U bedoelde. 

Ter illustratie geen protest bij COLORG 0.0 5.3 9.8 3.4 

of FOR 1=0 TO XMAX maar wat gaat dat allemaal veel sneller 
in integers. 

U begrijpt dat ik er een voorstander van ben om standaard 

te beginnen met IMPINT (inderdaad spatie niet nodig) en 

dan wel ! te zetten (ook .0) indien dit gewenst is. 

N.B. er is een verschil tussen IMPINT en IMPFPT gevolgd door 
IMPINT A-Z en omgekeerd, speelt er wat mee en verbaast U. 


ЖҰЖ aanwijzingen gebruik RUBIK'S CUBE ЖЖЖ 


De gekozen kleuren zijn de standaard kleuren zoals op de 
originele kubus te vinden zijn. De gekozen volgorde is die 
zoals de kubus in de verpakking zit. 


Komen de kleuren bij U niet zo goed over (ik gebruik RGB) cp conico cose gh 
kunt U de kleuren wijzigen in regel 2010. <5 g +H 
Pas op geef eerst IMPINT voordat U EDIT2010 doet. УТЕ НЕН 
De linker kubus іп beeld geeft voor,rechter en bovenvlak, de BL 25522. 
> 


rechter kubus is de kubus in de hand "horizontaal" gedraaid 
zo dat U onder,linker en achtervlak ziet. Speel wat na "I" 
met de vlakken zodat U weet wat U doet. 

EDe Equator zit tussen boven en ondervlak, het Middenvlak 
tussen linker en rechtervlak en het Staande vlak tussen 

voor en achtervlak, te besturen met E,e,M,m,S en s. 

Andere kleuren voor de vlakken zijn te geven in regel 2013 
t/m 2019. zie de voorbeelden in regel 2011 en regel 2012. 
Het middelste blokje van elk vlak kan ook een andere kleur 
krijgen (dan wel alle zijvlakken dezelfde kleur middenblok je) 
door de REM's in regel 2080 en 2090 te verwi jderen. 

Het middenblokje is dan zwart; andere kleur door 2080 te be- 
ginnen met KM=#70 als kleur 7 gebruikt moet worden. 

In de stand W is het mogelijk de teller te resetten door C 
Het draaitempo kan veranderd worden door de loop op regel 50 
te veranderen. De draaiingen kunnen net zoals bij LIST bein- 
vloed worden. Veel plezier. fhd 


FS 


———————M— лэ _———— 


TIPS-TIPS-TIPS-TIPS-TIPS-TIPS-TIPS-TIPS-TIPS-TIPS-TIPS-TIPS 
Begin programmeren in bijna alle gevallen met IMPINT 


Zet de uitleg van een programma wel in het begin van de "RUN" 
maar niet in het begin van de LIST. 

E Dwz begin bv met 10 CLEAR 3000: GOSUB 10000: enz 
terwijl we de uitleg dan zetten vanaf regel 10000; het pro- 
gramma wordt sneller еп overzichtelijker. 


Doe niet mee aan de domme amerikaanse gewoonte te beginnen 
met HOE HEET JE ? om dat gegeven vervolgens nooit meer te 
gebruiken. 


Begin niet met "WILT U UITLEG ?" 
Er zijn twee mogeli jkheden: 
I) uitleg klein geef die dan ongevraagd. 
11) uitleg groot maak een apart uitlegprogramma. 

voordelen i-als U geen uitleg nodig hebt minder inlezen 
à 2-programma mogelijk iets sneller 
U S-hele grote programma’s passen door splitsing 

wel in het geheugen. 
4-inlezen hoofdprogramma tijdens geven uitleg 


Begin elk groter programma met een "leader" of "header" 

Hier bedoel ik mee een beeld waarin de naam van het program- 
ma staat en de naam van de auteur. 

Liefst op een enigszins verantwoorde manier. 





Laat de aankondiging en de uitleg niet zolang in beeld staan 
als U goeddunkt maar laat de gebruiker van het programma de- 
ze vrijheid, door bv te wachten op indrukken spatiebalk. 


Geef bij het vragen om een moeilijkheidsgraad aan wat gemak- 


$ kelijk en wat moeilijk is. 
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200 MODE GA:PRINT CHR$(12);:POKE #75,32 REM ЖЖЖ SNOOPY BOOG 











= dom ee REM %ЖЖ UITGEZONDEN IN NOS-BASICODE 21-3-1982 An 
22 NE REM ЖЖЖ GEWIJZIGD EN AANGEPAST DOOR : xxxkXxXxiXxxxaor 
230 PRINT "SNOOPY":POKE #74D0, 208 REM XdxxdodboOOOOOOODOOEXE DE BONT CORNEEL ZEIT 
240 DIM CX(4) | | REM tt ENEE DOSTEINDE 10 xhuoceooopooox 
200 СА (1951216102) =0:С005)=10:С704)=15:К7=1 REM XXXHKKXXXXXKEHX 2338 BAARLE - HERTOG WERKE 
zoo SEM en STER f REM КХХ ЮО ОЮ ОКК 
270 FILL X%,Y% 330-XZ,210-YX CZ (KZ) I 

280 КУ=КИЖІ:ІР КХ>4 THEN КУ=1 

290  YZ=YZ+2:NEXT 

300 КЕМ Ж%% TEKENING snoopy 

210 RESTORE 

320 РОК Y%=1 TO 44:READ A$:A$-RIGHTS$(A$,LEN(AS) 13 Sky Zei A? 

330 FOR X%=1 TO LEN(A$)-1:T$-MIDS$(A$,XZ,1):1F T$-" " THEN 390 

340 IF T$s"X" THEN C%=0:G0TO 370 

350 ТЕ T$=":" THEN C%=10:GOTO 370 

360 ТЕ T$-"-" THEN CX-15 

370 DOT 100+X%, 150-KY% CX:DOT 100*XX,149-kYX CX 

380 DOT 230-X%,150-KY% CX:DOT 230-X%, 149-KY% СУ 

390 МЕХТ:МЕХТ 

400 REM XX* AUTOMATISCHE KLEURWISSEL INGEN 

410 CURSOR 2,2:PRINT "OM DE KLEUREN TE DOEN STILHQUDEN,DRUK OP DE SPATIEBALE "; 
420 ` C1Z=RND(16):C2Z=RND(16):COLORG 12 0 CiX C2%:WAIT TIME 5 

430  GZ-BETC:IF 6%=32 THEN 470 

440 WAIT TIME S:GZ-GETC:IF GX-22 THEN 470 

450 WAIT TIME S:GZ-GETC:IF 6%=32 THEN 470 

4&0 GOTO 420 

470 CURSOR 2,2:PRINT "OM DE KLEUREN TE DOEN WISSELEN, DRUK OF DE SPATIEBALK "; 
480 GY=GETC:WAIT TIME 3:1F GXc»32 THEN 480 

490 GOTO 410 

1000 REM ЖЖЖ SNOOPY 

1010 DATA. XXXX 

1020 DATA. X----XX 

1030 DATA. X-XXXXX-X XXXXX 

1040 DATA. X-XXXXXXX-X XXX----- ХХ 

1050 DATA. XXXX-XXXXXXX-XXX хХХХ---------- XX 

1060 DATA. XX: i:iX-XXXXXXX-XXXXXXXXX--—-—----------- XX XXX 

1070 DATA. ХХігг:і::Х-ХХХХХ-Х--------------------------- XXX-X 

1080 DATA . XitiirriiXX—-——-XX----- ХХ--------------------- XXX-X 

1090 DATA. XrriirififfXXXXXX-—-——-- ХХ-------------------- XXXXX 

1100 DATA . Хізізі:::ХХ:::2Х----------------------------- XX 

1110 DATA . XiiiiriiiiXXiirfX---—-—--—- XXXXXXXXXXXXXXXXXXX 

1120 DATA . Х:::::ХХХХХ: 22Х---------- X 

1130 DATA . Х::::Х—-—--Х:::::Х—-—-—-—-——---- X 

1140 DATA . X:itiX-XX-Xiir:X--——-—-- X 

1150 DATA . Хі:::Х-ХХ-Хі:і:Х--------Х XXXX 

1160 DATA . X:::X-XX-X::::X-------- x XX----XX 

1170 DATA . Kissa gg X X--X-X---X 

1180 DATA . — XiririXXXiriririririX--————--—— X XX--X--XXXX 

1190 DATA . : XX---XX--X 

1200 DATA. X----X--XX 

1210 DATA. Keane XXX 

1220 DATA. XXX:irifrfirfrtiifriciXXXXX Х----- H 

1230 DATA. XXXXXXXXXXXXX. Xe ss X (sees X 

1240 DATA. XirriXX х----- X 

1250 DATA. XiiirX--XXX Х----- X 

1260 DATA. Kes XXX--—-X 

1270 DATA. XrrrX-—-------- XXX 

1280 DATA . Х:::Х--Х---------- XXX 

1290 DATA. Х:Х-—--Х------------ XX 

1300 DATA. Х:::ХХ----Х------------- x 

1310 DATA. Х:::Х--Х----Х------------- x 

1320 DATA. Қ::ХХ---Х----Х------------- x 

1330 DATA. Х::Х Х----Х---ХХХХ---------- X 

1340 DATA. Merk Yan x——— X 

1350 DATA. X:::X Х---Х----- ХХ---------- X 

1360 DATA. Krk Kinn X 

1370 DATA. Kari Хх---ХХХХ------- ххх 

1380 DATA. Х: н: Х XXXX------- X----- X 

1390 рата . Ke bere eX Х------ Х----- X 

1400 DATA . XXXXXXXXXXXXXX::::I: x—— X------ XXXXXXXXX 

1410 DATA. iiiriiiiiiiiN XXXXXX------- XXXXXXXXX-——-—- X 

1420 DATA. ХХХХХ Tr ERNES Х---------------------- Х--Х--Х 

1450 DATA . Хазара Х----------------- X--X--XXXXXX 

1440 DATA .XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXX 

1450 REM ена F E NDE ————— ent 
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Е 95 COUNTERZ=-1 


E 391 REM IN REGEL 410 WORDT HET KLEUR REGISTER VOOR DE VOORGROND KLEUR BEPAALD 


change 16 color mode in 4 color mode 


REM HHHH HFH HH HEHE FF HHH HFF HFF B G B GG B GG HF E B I EB IE | B IE I Kik G G EE EE RSS 
REM ##### CHANGE 16 COLOR MODE IN 4 COLOR MODE ##### 
REM ##### PROGRAM BY WM. De Winter 82-04-27 THREE 
REM ЭННИНИНИННННИННННННННННИННИНННИНННИННННННННННИНННИННИННИННН 
CLEAR 100:DIM TABLE%(15):GOTO 60 

REM CONSTRUEER 4 COLOR DATA WOORDEN (SUBROUTINE) 

ON COLORFZ GOTO 30, 40,50: RETURN 

ON COLORBX GOTO 30, 40,50: RETURN 

LOWBYTEZ=LOWBYTEZ IOR (1 SHL BITPOSITIONZ) e RETURN 
HIGHBYTEZ-HIGHBYTEX IOR (1 SHL BITPOSITIONZ) e RETURN 
HIGHBYTEZ=HIGHBYTEX IOR (1 SHE BITPOSITIONZO:LOWBYTEZ-LOWBYTEZ IOR (1 SHL 
[ BITPOSITIONX) : RETURN 

E 55 REM TITEL + CONTROLE ОР 16 COLOR MODE 


GO PRINT CHR$ (12) :PRINT zPRINT " THIS PROGRAM CHANGES ANY 16 COLORMODE IN AN 4 
| COLORMODE" 


[ 62 IF БЕТС< >52 THEN 62 
65 REM CONTROLEER OF 16 KLEUREN MODE GEZET IS 
| 70 SMODEZ=PEEK (#9D) : IF SMODEZ=#FF OR SMODEX-2 OR SMODE/=3 OR SMODEX-6 OR SMOL 


| EX-7 OR SMODEZ=#A OR SMQDEZ=#E THEN PRINT :PRINT " YOU ARE IN ND 16 COLOR MODE": 
i PRINT :END 


75 REM ONDERZOEK WELK CONTROLE WOORD GEBRUIKT MOET WORDEN 





| во IF SMODEZ-1 THEN MBYTEZ=3 
| 82 IF SMODEZ-5 THEN MBYTEZ-411 
Г 84 IF SMODEZ-9 THEN MBYTE%=#20 


. 90 REM VUL TAFEL OP DIE HET VERBAND BEFAALD TUSSEN DE KLEUR IN 16 KLEUREN MOL 
t E EN DE VIER KLEURENREGISTERS IN 4 KLEUREN MODE 


t 100 PRINT :COUNTERZ-COUNTERZ*1:IF COUNTERZ>15 THEN 140 
* 110 PRINT " COLOR "s;COUNTERZ;" WORDT COLORREGISTER "sz INPUT АХ 
120 IF A%<4 THEN TABLEZ(COUNTER7) =A%:GOTO 100 
| 130 ` COUNTERZ-CUUNTERZ-1:GO0TO 100 | 
| 135 REM SELECTEER JUISTE MODE | 
| 140 IF SMODE%=1 THEN MODE 1 

| 142 IF SMODE%=5 THEN MODE 3 
144 IF SMODEX-9 THEN MODE 5 | 
| 145 REM VERANDER DE CONTROL WOORDEN VAN ALLE LIJNEN IN DE WAARDE VOOR 4 COLOR, 
` MODE | 
150 FOR ADRESS“=#BFEF TO #ВЕЕЕ—(ХМАХ/4+7)Ж(ҮМАХ+1) STEP - CXMAX/4+7) : FOKE ADRES 
| 5%, МВҮТЕХ: NEXT 

| 390 REM CONTROLEER DE DATA WOORDEN OP VOOR- EN ACHTERGROND KLEUR 


392 REM IDEM VOOR REGEL 420 MAAR DAN VODR DE ACHTER GROND KLEUR 
393 КЕМ IN REGEL 430 WORDT DE BYTE DIE DE EIGENLIJKE DOTS BEVAT OPGEROEPEN 
394 REM REGEL 440 BEPAALD WELKE BIT WE GAAN TESTEN EN AAN DE HAND VAN DEZE BIT 





395 КЕМ DIE OFWEL VOOR- DAN ACHTERGROND BEPAALD GAAN WE TWEE NIUWE DATA WOORDE | 
N SAMEN STELLEN 

396 REM DIE DUS DE TEKENING VERANDEREN IN EEN 4 KLEUREN MODE 
400 | COUNTERZ-O: OFFSET Ze (XMAX/4+7) /2: FOR ADRESSZ-&BFEF-2 TO #BFEF- (XMAX/4+7) %05) 
MAX+1) STEP —2:COUNTERZ=COUNTERZ+1: IF COUNTERZ-ÜFFSETX THEN COUNTERZ=0: NEXT: БОТС | 
500 | 
410  COLORFZ-TABLEX((PEEK (ADRESS%-1) ТАМО SFO) SHR 4) 

420 COLORB%Z=TABLE% (PEEK (ADRESS%-1) IAND #F) 

430 SCREENBYTE“%=PEEK (ADRESS%) : HIGHBYTEZ=0: LOWBYTE7.—O | 
440 FOR BITPOSITIONZ-O TO 7 

| 450 IF SCREENBYTEZ IAND (i SHL BITPOSITIONZ)>0 THEN GOSUB 10:GOTO 470 

E 460 . GOSUB 20 I 
' 470 NEXT 

г 480 POKE ADRESSZ,HIGHBYTEZ:POKE ADRESSX-1,L OWBYTE 








Ё 150 NEXT 





500 IF SMODEZ=1 THEN РОКЕ #90, 2 


E 505 IF SMOÜDEZ-5 THEN POKE #90, éi 





E 510 IF SMODEZ=9 THEN POKE #90, #А 
| 520 PRINT CHR$(12):PRINT :РКІМТ " YOU ARE NOW IN 4 COLOR MODE  ''''!'"zEND | 
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more about talk & music 


2.15.3 


Generation of Music 


This section describes how the DAI Graphical Sound Generator may be used 
to produce musical tones. The mathematical relationship between notes is 
described for the major scale. 


outlined. 


2.15.3.1 
Notes and the Major Scale 





C# De 
e 
C D E 
do re mi 


The above diagram shows the composition of the Major scale. The natural 
notes (e.g. C, D, E etc.) represent the white keys on a piano keyboard whilst 


the sharps (% ) represent the black keys. 


From CtoC, over the scale, represents one OCTAVE. An OCTAVE represents 
a2 : 1 frequency ratio. Thus to move from from middle C up 3 OCTAVEs 


requires an increase in frequency of 8 times (i.e. 2%ж2 %2 = 2 Î 3). 


To increase the pitch from C to C# requires that the pitch be increased by 
one SEMITONE. One SEMITONE represents an increase in frequency in the 
ratio'N2 : 1. 

Thus freq (СФ ) = freq (С) KL 


To increase the pitch from C to D requires that the pitch be increased by one 
TONE. One TONE represents an increase of frequency in the ratio 9e: l. 
Thus freq (D) = freq (C) X27 | 
It should be noted that | 

1 TONE = 2 SEMITONES 


(ME = SZ ж) 
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more about talk & music 


2.15.3.2 


Automatic generation of scales 


It is possible to generate the notes in a scale or a number of scales by 

increasing or decreasing the frequency by the desired number of SEMITONES. 

Thus to move from C to F requires an increase of | 

2 TONES + 1 SEMITONE = 5 SEMITONES | 

Thus freq (Е) = freq ( (с) ж 2 ж2 KAZ ж 2 Sege 
= freq (C) ж (2) 


A convenient reference note to take when generating scales is A = 449 Hz. By 
moving down the scale 9 SEMITONESC can be generated. Generation ofa 
scale then merely involves a move of an integer number of SEMITONES up from 
C. 


As an example consider a program to generate the irregular do,re,mi sequence: 


199 CLEAR 10000 : SOUND OFF 
11g SEMI - 2. ot (1. 8/12. 0) 

120 LOWC = 44g (SEMI | 9): REM C 9 SEMITONES DOWN | 
134 ENVELOPE f 16 | 
14g FOR N% = 1 TO 8 

15@ READ D% 

16@ FRQ = LOWC K(SEMI toa) : REM 0% SEMITONES UP FROM С 

179 SOUND g f 15 g FREQ (FRQ) | 

18@ WAIT TIME 29 : SOUND OFF 

19g NEXT N% 

200 STOP 

21d DATA 0,2,4,5,7,9,11,12 





Volume control of a particular sound generator is attained by using the 
appropriate TALK code followed by one byte giving the volume level between 
f—e-3F (i.e. 16 level). 

Frequency control of a particular sound generator is given by the two bytes of 
data following the frequency TALK code. The frequency is obtained by 
specifying the number of 1/2 pS units in the same manner as for the SOUND 
command. 

e.g. Determine the hexadecimal number required to give a frequency of 80 Hz 


?НЕХ $(FREQ(899)) gives 9C4. 
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more about talk & music 


Delay of upto 0.9 seconds is possible. The unit delay is 13. 5 pS. The two 


bytes of data specify the number of unit delays required. 


As TALK codes are interpretive codes relating to sound generation, they are 
much more restrictive than machine code. Should more sophisticated functions 
be needed, TALK has the facility to calla subroutine written.in absolute machine 
code. Thus, facilities such as loop counts, etc. become possible with TALK. 


Two bytes of data specify the 16 bit destination address. 


Note: The TALK interpreter, in order to execute TALK code statements quickly, 
uses very low level coding. One feature of the 8080 microprocessor is the way in 
which it collects double byte data from memory, collecting the lower value byte 


first and the higher value byte last. 
This convention is observed for all double byte data in the TALK code format. 
Thus the 3 byte TALK command to call the subroutine at location W57BC would 


be # 9D (call routine), WBC (lower byte address), #59 (upper byte address). 


Consider the following example of a TALK program: 


Address TALK code DATA FUNCTION 
HAggg g #C4,9 Set channel H frequency to 8ggHz ( #9C4). 
Agg3 8 o ЖЕ Set channel ff volume maximum. 
Agg5 ` # С HEF, ЖЕК Set maximum delay (. 88 secs). 
Agfa 8 i g Set channel g volume minimum. _ 
AJ A 2 ЖА, ЖА Set channel 1 frequency to 399 Hz ( #1 АЎА) 
А0 9 #F Set channel 1 volume maximum. 
AggF 4C #FF, #FF Set maximum delay (. 88 secs). 
Ag12 9 g Set channel 1 volume minimum. 
Ag14 4 | #2@, #4Е Set channel 2 frequency to 19fHz ( 44E29). 
Ag17 HA RF Set channel 2 volume maximum. 
А@19 HC . ` #FF, KEE Set maximum delay (. 88 secs). 
Ag1C HA g Set channel 2 volume minimum. 
А@1Е 4D #21, HAY Jump to machine code subroutine ( #A921) 


eege 


For the purposes of this example we will include a small machine code subroutine 
which will return tothe TALK interpreter, causing it to start executing TALK 


instructions from address ЖА 797. 
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Address Code 
WAg21 #21, #99, ЖАЙ  LXLH with АЯ 
A24 %С9 Return 


The H,L register pair is loaded with the address of the next instruction for the 


TALK interpreter. 


The following program will run the TALK statements given. 


19 CLEAR 1999:B%= #Aggg 


20 READ A%:IF АФ < g GOTO 40 

3g POKE B%,A%:B%=B%+1:GOTO 29 

4g TALK ФАЛИ 

50 STOP 

100 DATA 0, #С4,9,8, #F, 4C, #FF, #FF,8,9 

110 DATA 2, ЖА, #1A,9, #F, #C, HEF, #FF,9,9 

129 DATA 4, #29, #4E, WA, ФЕ, ЯС, HEF, #FF, #A,9 


139 DATA #9D, #21, Mag, #21,9, HAY, #09, -1 


The next program will generate the Major scale over 5 OCTAVES. The 


values may be compared with the table which follows the program. 


100 CLEAR 1999:SOUND OFF 

11@ 5ЕМІ-2.07(1.0/12. 0) 

120 LOWC=448. Q/(SEMI? 33. Ø) 

130 ENVELOPE ў 15 

140 FOR N%Z=g TO 59 

159 IF N% MOD 12=9 THEN RESTORE 

160 READ A$:FRQ=LOWC%& (SEMI 4N%) 

170 SOUND ø 0 15 g FREQ(FRQ) 

180 PRINT A$, "FREQ=";FRQ ` 

19d WAIT TIME 20 :SOUND OFF 

200 NEXT N% 

219 STOP f | | 
229 DATA DO,DO# ‚RE, КЕФ, MI, FA, FA# , SOL, SOL#, LA, ГАФ ‚TI 


Note Freq. Hz Freq. Hz Freq. Hz  Freq. Hz  Freq. Hz 
Octave l Octave 2 Octave 3 Octave 4 Octave 5 


DO 66 131 262 523 1947 
DOŁ 69 139 277 554 1199 
RE 73 147 294 2587 1175 
КЕФ 78 156 311 622 1245 
MI 82 165 330 659 1319 
FA 87 175 349 698 1397 
FA# 92 185 370 749 1489 
SOL 98 196 — 392 784 1568 
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SOLE 194 ` 278 415 831 1661 
LA 110 220 440 88g 1760 
LA# 117 233 466 932 1865 
TI 123 247 494 988 1976 


TEE 
2.15.4 i 
Synthesi sing Vocal Sound 


Due to the flexibility of change in volume and frequency it is quite feasible 
to explore the possibilities of vocal sound generation. The BASIC of the 
DAI Personal Computer gives full control to the programmer who wishes 

to develop experimentally a burst of sounds that may result in vocal sounds. 
A further feature aiding experimentation is the TALK facility, which allows ` 


for fast bursts of sound to be programmed in à low level code. 


2.15.4.1 
TALK 


EXAMPLES 
TALK +#Bggg 
TALK VARPTR(X(Ø)) 


TALK is botha command in DAI BASIC and a subsystem in its own right. 
The above TALK commands cause the TALK code interpreter to start to 
interpret the special low level TALK code at the address specified. The 
following table outlines the TALK codes: 


Instruction Code Bytes of Data Function 
HO 2 Frequency control, channel g 
#2 2 " H " 1 
#4 2 " " " 2 
#8 l Volume control, channel d 
#9 1 н М d 1 
#A 1 " u M 2 
AB 1 » t , white noise generator 
ЯС 2 Delay іп 13 pS units. 
*D 2 Call absolute machine code routine. 
#FF g END TALK/RETURN TO BASIC. 
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An alternative way of achieving the same result but with more safety, is to 
set up space on the HEAP by dimensioning an array and writing the TALK 
codes into it. Any addresses which need to be set up can be done with reference 


to position in the DATA table. The following program demonstrates this 








possibility. 

10 CLEAR 1000:рім 0%(100. 9): B%=VARPTR(Q%H(G. @)) 
20 READ A*:IF АФ < d. g СОТО 40 

3g POKE B%,A%:B%=B%+1:GOTO 20 

40 READ F%:IF Fh < g GOTO 50:КЕАр S%:GOSUB 1999:GOTO 49 
59 TALK УАЕРТВ(0%(0. 0)) | 

6g STOP 

10d DATA 0, #C4,9,8, HF, ЯС, #FF, #FF,8,9 

11g DATA 2, ЖА, 41A,9, *F, ЖС, #FF, #FF,9,9 

120 DATA 4, 420, #4E, ФА, ЯҒ, VC, ЖЕЕ, #FF, ЖА,0 
130 DATA #9D,9,9, %21,0,0, HCI, -1 

140 БАТА 32,34,35,1,-1 











"au 
1 3, Floating point getallen 


\ 1000 7%-4:0ЕФ-УАКРТВЕ(ОФ(Ғ%/7%))(Ғ% MOD 4.0)-1.0 
Ж 1010 US%=VARPTR(Q%(S%/I%))+(S% MOD 4.0)-1.0 

i 1020 POKE UF %,US% IAND ЖЕК 

% 1939 POKE UF %+1,US% SHR 8 

j 1040 RETURN 

` п a 

| floating point numbers 
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woke wate 


Ў 3.1 Definitie en notatie van floating point getallen in het decimaal en binair 


talstelsel I 


Een floating point getal bestaat uit een geheel deel en een fractiedeel. Beide 
: delen worden in de gewone notatie naast elkaar geschreven en zijn gescheiden 
| door een punt, Het deel links van de punt is het gehele deel, terwijl de cijfers 


| réchts-ervan het fractiedeel vormen, 


voorbeelden: in het decimaal talstelsel 2.75 - 0.678 567.0 


in het binair talstelsel 1011.010 -101,011 0.011 


Een floating point getal kan geschreven worden als de som van de producten van 


elk van zijn cijfers met een positieve of een negatieve macht van het grondtal 
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van het talstelsel waarin het floating point getal is uitgedrukt. 


voorbeeld 1: in het decimaal stelsel 


2 1 0 -4 


376.44 = 3 x 10^ + 7 x10 + 6x10 + 1 хло + 4 10% 


voorbeeld 2: in het binair stelsel 
4044461 = tret OR erweer EE WEE e 


(= 8 + 0 + 2 + 1 + 0.5 + 0° + 0.125) 
(= 11.625) 


De plaats van de punt geeft de overgang aan tussen de positieve en de negatieve 


machten van het grondtal. 


Omdat in een computer niet met een onbeperkt aantal cijfers kan worden gewerkt, 
gebruikt men meestal de wetenschappelijke notatievorm om floating point getallen 
voor te stellen, In deze representatie van de floating point getallen onderscheidt 
men 3 delen: 

a. een geheel deel 

b, een fractiedeel 


c. een(expliciet vermelde) macht van het grondtal van het talstelsel 


Het voordeel van deze notatievorm is dat zeer grote en zeer kleine getallen met 
een minimum aantal cijfers kunnen geschreven worden. 
voorbeeld: 17,15 x 10? i. p. v. 17150000000 in het decimaal stelsel 


11.01 x 1019" i. р. v. 1101000 in het binair stelsel 


Door de exponent van de macht van het grondtal op de juiste wijze aan te passen 
kan er steeds voor gezorgd worden dat het gehele deel in de wetenschappeli jke 


notatievorm nul is. 
voorbeeld: 17.15 x 10? = 0,1715 x 1011 in het decimaal stelsel 


ES 0,1101 x 10111 іп het binair talstelsel 


- 


Indien het fractiedeel uit een vast aantal cijferposities bestaat, zal een floa- 


11,01 x 10! 


ting point getal bijgevolg met de grootste nauwkeurigheid kunnen worden voorge- 
steld, indien geeist wordt dat het cijfer dat onmiddellijk na de punt volgt ver- 


schillend is van nul. Ook aan deze eis kan voldaan worden door de exponent van 
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6 
het grondtal op een gepaste wijze te veranderen. 
voorbseld: 0.0023 x 10" = 0.23 x 10% (decimaal) 
0.0014 x 101910 = 0,11 x 101900 (binair) 


Indien vorige twee voorwaarden bij de voorstelling van een floating point getal 
(in om 't even welk talstelsel) voldaan zijn, noemt men de notatie genormaliseerd, 
Samengevat kan gesteld worden: een wetenschappelijke notatie van een floating point 
getal is genormaliseerd dan en slechts dan als: 

1. het gehele deel ervan nul is 

2. het eerste cijfer van het fractiedeel verschillend is van nul; het enige 


getal dat op deze eis een inbreuk mag maken is het getal nul zelf, 


Rekening houdend met de definitie van een genormaliseerde wetenschappelijke notatie 
kan de standaardvorm hiervan in basis twee (binair 10 genoteerd) als volgt worden 
opgeschreven: 


O.BBBBBBBBB x 4o ODD 


Hierin stellen de letters B en b bits (О of 1) voor. Het aantal B's is afhankelijk 
van het vast aantal bits dat gebruikt wordt om de fractie voor te stellen. Ver- 
der in deze tekst is dit aantal 24, Het aantal b's bepaalt de maximale waarde 

van de exponent van het grondtal 2. Dit aantal is 7. | 


Daar de fractie uit 24 bits bestaat zal een nauwkeurigheid van x zç 0.000000059 


bekomen worden, Dit komt neer op een nauwkeurigheid van ongevee? 7 decimale cijfers. 





De exponent van het grondtal wordt met 7 bits weergegeven in 2-complement notatie, 
d.w.z. hij varieert van: | | 
0111111 26 - 1 = 63 
tot 1000000 = - 64 


De grootste macht waarmee de fractie bijgevolg kan vermenigvuldigd worden is 


263 дё 9.2 x 1018 


en de kleinste: -64 


2 c 54x 10729 


zodat Кап gesteld worden dat de strikt positieve floating point getallen die 
19 


expliciet kunnen worden voorgesteld gelegen zijn tussen 1071? en 10 
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De 7 exponentbits worden door de tekenbit tot een byte vervolledigd. Deze teken- 
bit is O voor positieve floating point getallen en 1 voor negatieve. De grenzen 
die hoger werden gegeven voor de strikt positieve floating point getallen ( 1071? 
en 1019) kunnen nu aangepast worden voor de negatieve: -1019 еп 210712. 

Deze teken-exponent-byte tesamen met de 3 fractie-bytes vormen de 4 bytes die ge- 
bruikt worden om floating point getallen voor te stellen, Ze zijn als volgt 


in het geheugen opgeslagen: 


= 


BBH 


— e pe 





“12 : 24 bits 
exponent in 2-complement vorm : 7 bits samen 32 bits 


tekenbit : 1 bit = 4 bytes 


Daar deze voorstellingswijze genormaliseerd is, is de meest beduidende bit van de 
fractie - met uitzondering van het floating point getal 0.0 - steeds 1, Dit werd 
dan ook zo weergegeven in de schematische voorstelling. Daar het gehele deel nul 
is, zou het slechts een verlies aan geheugenruimte zijn indien ook dit gehele deel 
in de voorstellingswijze zou worden opgenomen, De punt (scheiding tussen geheel 

en fractie deel) is bijgevolg ook overbodig. Impliciet staat ze voor de tweede 
byte. 


Door middel van voorbeelden zullen de papier-en-potlood-algoritmen voor de 


verschillende gevallen behandeld worden. 


Voorbeeld 1 Binaire representatie van het floating point getal 20.23 


Deze voorstelling wordt in 3 fasen berekend: 
1. binaire voorstelling van het gehele deel 20 
20 = 10100 


2. binaire voorstelling van het fractiedeel: 0.23 

Hiertoe maken we volgende bedenking: 
0.23 = 2 x 0^ + 3 x 402 

We onderstellen nu dat de binaire equivalenten van de machten van 10 (tien) 
met negatieve exponenten gekend zijn met een nauwkeurigheid van 32 cijfer- 
bits.en in een niet-genormaliseerde vorm, Deze binaire equivalenten staan 
in tabel 1 en werden berekend met programma 2, Gezien slechts 7 decimale 
cijfers nauwkeurig kunnen worden weergegeven, volstaat het deze tabel op 


te bouwen tot 1077. 
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2 = CLEAR 1000 

| їп Dis LI 

% 20 FOR K=1.0 TO 7.0 

Í 25 — DT%=2:Bf="" 

M zu FÜR Hiel TO 32 

H Ati SDT Dh 

t =й IF ü%=1 THEN OTX=DTx-DS 
: 60 DES AE 


. ҮЙ CE=MIDECSTRECGS 3, 1,12 
=й Б=Б#+С# 
ай HEAT 
100 PRIHT "БІНЕІР EGUIUALEHT WAN": 1, 0.^D 
110 FOR I=0.0 TO 3.0 
120 PRINT MIDEIEF IgE, Sas "g 
i3ü НЕ Т 
140 FRIHT :РЕІНТ ;D2=D2R10 
190 NEST 





Tabel 1 Tabel van de binaire equivalenten van 107" tot en met 107? 


BIHAIF EGUIUALEHT WAN Ü. i 
002011001 10011001 10011001 10011001 


ЕІНЕІК EGUIUALEHT WAH 1Е-2 
00000010 10001111 01011100 00101000 


BINAIRE EGUIUALEHT VAH 1E-3 


їшї 01000001 10001001 00110111 


БІНАІЕ EGUIUALEHT WAH 1E-4 | 
йй 00000110 10001101 10111000 


БІНАІЕ EOUIUoL ЕНТ WAH 1Е-5 


йїп ССРО 1010011: 11000101 


EIHAIR EGUIUALEHT UAH 1Е-6 
00000000 00000000 00010000 11000110 





ly БІНЕІК EGUIUALEHT UAH 1Е-Р 


D (иии | aaggoügaQg посо 10101101 
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De berekening van de binaire voorstelling van het fractiedeel gebeurt nu als volgt: 


2 x 0.1 = 2 x 00011001 10011001 10011001 10011001 
= 00110011 00110011 00110011 00110010 
3 x 0.01= 3 x 00000010 10001111 01011100 00101000 


00000111 10101110 00010100 01111000 


Opgeteld geeft dit: 


0.23 = 00110011 00110011 00110011 00110010 


- 00000111 10101110 00010100 01111000 
00111010 11100001 01000111 10101010 


opmerking: gezien in de binaire representatie de notatie O. niet gebruikt wordt, 


staan in het rechterlid uitsluitend cijfers van het fractiedeel, 


De berekeningen van fase 1 en fase 2 kunnen nu als volgt schematisch worden samen- 


gebracht: 


teken en 
gehele deel fractiedeel exponent 
00010100 00111010 11100001 01000111 10101010 00000000 


3. tijdens fase 3 wordt deze binaire wetenschappelijke notatie genormaliseerd. 
Dit gebeurt door alle bits van het gehele en het fractie deel zoveel plaat- 
sen naar rechts op te schuiven tot het gehele deel nul wordt, Telkens 1 bit 
wordt opgeschoven, moet de exponent met 1 worden vermeerderd. Na deze fase 


bekomt men volgende genormaliseerde vorm: 


teken en 
gehele deel fractiedeel exponent 
00000000 10100001 11010111 00001010 00111101 00000101 


Door de fractie te beperken tot 3 bytes - eventueel afronden naar boven vanuit 
de vierde byte - en de exponent vooraan te plaatsen, wordt de gewenste binaire 


notatie van het floating point getal 20,23 bekomen, 


„exponent fractie 


00000101 10100001 11010111 00001010 
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Voorbeeld 2: Binaire representatie van het floating point getal -20.23 


Het enige verschil met het floating point getal uit het vorige voorbeeld is het 
minteken. Dit wordt gecodeerd in bit 7 van de teken-exponentbyte, zodat de binai- 


re representatie van -20.23 is: 


teken en 
exponent fractiedeel 
10000101 10100001 11010111 00001010 


Voorbeeld 3: Binaire representatie van het floating point getal 0.012 


fase T: Vermits het gehele deel O is, is deze fase hier overbodig 


fase 2: | 2 





0.012 = 1x10° + 2 х 1072 
1x107 = 00000010 10001111 01011100 00101000 
2 x 107 - 00000000 10000014 00010010 01101110 
0.012 = 00000011 00010010 01101110 10010110 


We bekomen alzo de voorstelling: 


teken en 
geheel deel fractiedeel exponent 
00000000 ` 00000011 00010010 01101110 10010110 00000000 


fase 3: om deze vorm te normaliseren moeten de bits van de fractie 6 plaatsen 
naar links worden verschoven, De exponent vermindert hierbij telkens met 1, zodat 
na de verschuiving deze de waarde -6 heeft. In 2-complement notatie met 7 bits 
wordt dit: 1111010. 


Na verschuiving krijgen we volgende representatie: tekenen 
geheel deel fractiedeel exponent 
00000000 11000100 10011011 10100101 10000000 01111010 


Als we het gehele deel in de notatie weglaten,de fractie beperken tot 3 bytes 
- met afronding vanuit de vierde byte - en de exponent voor de fractie plaatsen, 


bekomen we: 


teken en 
exponent fractiedeel 
01111010 11000100 10011011 10100110 


Door codering van het minteken in de notatie van vorig voorbeeld bekomen we: 


11111010 11000100 10011011 10100110 XXXXX 135 
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REM BINGOSPEL PROGR: T.GROENEVELD LEEUWARDEN NEDERLAND 

КЕМ GEBRUIKSAANUWIJZING 

REM DIT SPEL MAAKT GEBRUIK VAN EEN DRUKKNOP, MET DAARAAN 

REM PARRALLEL EEN WEERSTAND VAN 47k EN IS AANGESLOTEN OP PDL (2) 

REM NA GEREEDMELDING OF DRUKKNOP DRUKKEN VOOR EERSTE GETAL. 

REM VOOR ELK VOLGEND GETAL KORTSTONDIG OP DRUKKNOP DRUKKEN. 

REM ALS ER BINGO GEROEPEN WORDT, KRUKKNOP NET ZOLANG INDRUKKEN 

REM TOT HET BINGOVELD VERSCHIJNT MET DE GEWEESTE GETALLEN. 

MODE O:COLORT В ОН O:CLEAR 1000:DIM G(76.0):L=0.0:PRINT CHR$(12):POKE #75 


‚S2:COLORT 8 O 8 O 
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CURSOR 10,20:PRINT "ІННННННННИННННИННННННИННННИНИИННИНИННИННИННННЕ" 


CURSOR 10,19:PRINT "# i 
CURSOR 10,18:PRINT "# B I N G D #" 
CURSOR 10,17: РБІМТ "# ================ LN 
CURSOR 10,16:PRINT "s #" 
CURSOR 10, 15:PRINT “ЭИНННННИННННННННННННИНННННИННИНИННИННИННИННН" 
CURSOR 10,14:PRINT "uitgevoerd met een == D A I computer ==" 


CURSOR 10,10:PRINT “DE COMPUTER IS NU BEZIG EEN WILLEKEURIG" 
CURSOR 10,9:PRINT w——— Y " 
CURSOR 12,7:PRINT “BINGO GETALLEN BESTAND OP TE BOUWEN" 
CURSOR 12,6:PRINT "----------------------------------- " 

REM OPBOUWEN GETALLENBESTAND 

R=RND (75.0)+1.0 

ENVELOPE 1 15,9;0:SOUND 1 1 15 O FREQ(RND(269.0)+31.0) 

NOISE 1 15 

FOR A=1.0 TO 75.0:IF G(A)<>R THEN NEXT А 

IF А<76.0 AND G(A)=R THEN 25 

IF G(I)=0.0 THEN 6(D=R 

I-I*1.0:IF I=76.0 THEN 100 

GOTO 25 | 

REM GEREEDMELDING VAN GETALLENBESTAND 

PRINT CHR$(12):COLORT 5 15 5 5:РОКЕ #75,32:POKE #BAZD, 95 
SOUND OFF :CURSOR 0,12:PRINT "BINGO IS GEREED" 
REM WACHTEN OP TOETSENBORD 

REM RZ-GETC:IF R%=0 THEN 120 

REM WACHTEN OP PADDLE 

P'-PDL(2):IF PDL(2)>10 THEN 140 

L-O:COLORT 8 O 8 O:POKE #BAZD, 122 

REM GETALLENBESTAND EEN VOOR EEN LEEGLEZEN 
MODE 1:COLORG 1 10 O O:PRINT CHR$ (12) 
L=L+1.0:IF L=76 THEN 185 | 
PRINT " Getal is ==";6(L);" == Is er BINGO (J/N) 7" 
FILL 5,5 65,55 2:GOSUB 300 

SOUND O O 15 O FREQ(800.0):WAIT TIME 5:SOUND OFF 

REM WACHTEN MET GETC OP TOETSENBORD 

REM G=GETC:IF G=0.0 THEN 185 

REM IF G=74.0 THEN 194 

REM WACHTEN MET GETC OP PADDLE 

IF PDL(2)>10 THEN 189 

WAIT TIME 100 

IF PDL(2)<10 THEN 194 

GOTO 165 

REM GEGEVEN BINGOGETALLEN WEERGEVEN 

MODE O:PRINT CHR$ (12) 

IF L=76.0 THEN L=75 





ы. dés. А А ae RE 


m Or Me ñ. mn Pax IN Pë, Pa fm Px IN ER ER ҮП en тєл B F ымы 


FRINT " 
PRINT " 
PRINT " 
FOR T=1 TO L 

P=INT (G(T)-1.0)/15.0 

CURSOR P*8.0+12, 20-6 (Т) +FX15.0 

PRINT G(T)?:NEXT Т Р 

CURSOR 5 „4: PRINT "===========================Trn 
CURSOR 5,2:PRINT "GOEDE BINGO (J/N) 7?" 

CURSOR 23,2 

R=GETC: IF R-O THEN 255 

IF R=74 THEN 600 

FOR W!=500.0 TO 40.0 STEF -1.0 

SOUND O O із 2 FREG(W!D):NEXT:SOUND OFF 

CURSOR 5,1:PRINT "VOOR VOLGENDE GETALLEN ОР SPATIEBALK DRUKKEN '!'''" 
G!=GETC: IF G!=0.0 THEN 266 
CURSOR 5,1:PRINT " 


"sGOTO 1 


N=30: X=INT (G{L) /10.0) 

IF X=0.0 THEN 330 

GOTO 470 

REM BINGOGETALLEN GROOT WEERGEVEN 

A=G(L) 

ON А+1 GOTO 350, 560, 370, 380, 390, 400, 410, 420, 430, 440 

GOSUB 500:GOSUB 510:GOSUB 520: GOSUB 530:GOSUB 540:GOSUB 550: GOTO 450 

GÜSUB 540:GOSUB 550: GOTO 450 . 

GOSUB 530:GOSUB 540:60SUB 560:GOSUB 510:GOSUB 500: GOTO 450 

GOSUB 530:GOSUB 540:GOSUB 550: 6050В 500:GOSUB 540: GOTO 450 

GOSUB 520:GOSUB 560:GÜSUB 540:GOSUB 550:60T0 450 

GOSUB 530:GOSUB 520:GOSUB 560:GOSUB 550: GOSUB 500: БОТО 450 | 
GOSUB 530:GOSUB 520:GOSUB 510:GOSUB 500: 6050В 550:GOSUB 560:GOTO 450 | 
GOSUB 550: 6050В 540:GOSUB 550:G0T0 450 | 
GOSUB 530:GOSUB 520:GOSUB 510:GOSUB 500: GOSUB 550:GOSUB 540:GOSUB 540: GOTO 


GOSUB 530:GOSUB 520:GOSUB 560:GOSUB 540: GOSUB 550:GOSUB 500:GOTO 450 
IF X=0.0 THEN RETURN 

=FRAC (GL) /10.00 ¥10. O+0. 5: X=0: N=30: GOTO 340 

A=X:N=0:GOTO 340 











DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 


ENVELOPE О 15 


10+N, 10 
10+N, 10 
10+N, 30 
10+N, 50 
30+N, 50 
30+N, 30 
30+N, 30 


30+N, 10 
10+N, 30 
10+N, 50 
3O-N, 50 
30+N, 30 
SO-N, 10 
10+N, 30 


FOR J'=1.0 TO 15.0 
SOUND 1 O 15 2 FREG(800.0):WAIT TIME 5 
SOUND 1 O 15 2 FRE@(600.0):WAIT TIME 5 
NEXT: SOUND OFF ` 
CURSOR 5,1:РКІМТ "WILT U NOG EEN KEER SPELEN (J/N) 7" 


CURSO 


R 38,1 


8: RETURN 
8: RETURN 
8: RETURN 
8: RETURN 
B: RETURN 
8: RETURN 
8: RETURN 


G!=GETC:WAIT TIME 3:IF G!=0.0 THEN 630 
IF 6!=78.0 THEN 660 


GOTO 


10 


РОКЕ #75,75:PRINT :END 
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REM 

КЕМ GRUE + CHRONO — D'APRES DAINAMIC NO 8 . 

REM --------------------------------------- 

REM ECRIT PAR MOENS JACQUES - NOVEMBRE 1981 

REM STE 

MODE O:PRINT CHR$(CI2):COLORT 12 O 12 12:PRINT SPRINT SPRINT 

PRINT ТАВ(20); "GRUE + CHRONO": РКІМТ TAB (20) ; "------------- “sPRINT 


PRINT ТАВ (10); "LE BUT DU JEU EST DE RAMENER LE COLIS ":PRINT ТАВ(10); "SUR 


LE QUAI SITUE A GAUCHE DE L’ECRAN" 


13 


PRINT TAB(9); "ЕМ UN MINIMUM DE MOUVEMENTS ET DE TEMPS.":PRINT :РКІМТ ТАВ(1 


5); "LES MOUVEMENTS SONT sn 


14 


PRINT TAB(15);CHR$(94)y;s" “sCHRS(140)5" "sCHRS(136)3"  "SCHR$(C137) 
PRINT TAB(15); “1 = SERRAGE DES PINCES" 

PRINT ТАВ(15);"2 = ECARTEMENT DES FINCES" 

PRINT TAB(7):šs “POUR ACCELERER APPUYEZ SUR LA TOUCHE *REPT’" 
PRINT : PRINT :PRINT TAB(10);"POUR COMMENCER APPUYEZ SUR UNE TOUCHE" 
IF GETC=0.0 THEN 19 

GOTO 140 

YM14X-YMAX-1: YP1%=YMAX-Yi%+1:DRAW XIZ, YM1% X1%,YP1% CZ 
XM1%4=X1%-D1%: YM1A=YMAX-Y1%-1: YMS%=YMAX-Y1%-5 

DRAW ХМ1%,ҮМ17 XM1%7,YMS% CZ 

XP1Z-X1Z*DiX: DRAW XP1%,YM1%4 XPF17Z,YMSZ CZ 
ҮМ1Л=ҮМАХ-Ү1Х: DRAW X1Z—10,YM1Z X1%+10,YM1% СУ 

IF АС=0 THEN RETURN 

FILL XG1,YG1 XD1,YD1 DZ 

RETURN 

MODE 2:COLORG O 1 10 5 

DRAW 10, YMAX XMAX-10,YMAX 21 

FILL 50,0 60,10 10 

DRAW 0,30 29,30 S:DRAW 29,30 29,0 5 

C4=21:X1%=11: Y1%4=5:D1%=1: AC=0. Os PO=0.0 

XG1=50. 0: YG1=0. 0: XD1—60. 0: YD1=10.0:GOSUB 30 
AA=GETC:SA=S%+1: IF AX=0 THEN 170 

5%=5%+10: MA=M%+12X2%=X1%: Y2%=Y1%:D2%=D1% 
XG2=XG1: Х02=Х01: YG2-YG1 : YD2-YD1 

IF AC=1.0 THEN 190 

IF SCRN(XG1-1,YD1)=0 THEN 190 

IF SCRN(XD1+1,YD1)=0 THEN 190 

IF SCRN(XG1+6, YD1+2)=0 THEN 190 

АС-1.0 . 

IF SCRN(10,31)<>10 AND SCRN(19,31)<>10 THEN 200 
P0-1.0:GO0TO 290 

IF AZ-50.0 THEN D2Z=D1Z+1: IF D2%4<11 THEN 270 

IF AX-49 THEN D2X-D1Z-1:IF D2%>0 THEN 270 

IF AX<>16 THEN 220 

Y2Z=Y17Z-1 

IF AC=1 THEN YG2=Y61+1.0: YD2=YD1+1.0 

IF Y24>1.0 THEN 260 

IF АХ<>17.0 THEN 230 

Y2Z=Y1Z+1: YSA=YMAX-V2%-5 

IF AC-O THEN 226 

YG2-YG1—1.0: YD2=YD1-1.0: IF YG2«—0.0 THEN 250 | 

IF SCRN (XD2,YD2+1)=1 THEN 250 

IF (¥2%<59.0) AND (SCRN(X1Z+D1Z, Y5Z)=O) AND (SCRN(X1%-D1%, Y5%)=0) THEN 260 
IF AX<>18.0 THEN 240 

X2Z=X17Z-1 | 

IF AC=1 THEN XG2=X61-1.0:XD2=XD1-1.0 

IF Х2Х>10.0 THEN 260 

IF А1<719.0 THEN 250 

X2Z=X17Z+1 

IF AC-1 THEN XG2=XG1+1.0: XD2=XD1+1.0 

IF X2X«XMAX-10.0 THEN 260 

SOUND 1 O 15 O FREG(100.0): WAIT TIME 10:SOUND OFF :GOTO 170 
IF X2%<31.0 AND Y2%>28.0 THEN 250 

IF Х2/<40.0 AND Y2%4>33.0 THEN 250 

IF AC=0.0 THEN 265 

IF SCRN(XG2-1,YG2) =5 THEN 250 


PAGE 0! 240 x 528 resolution 


001 ЖЖЖ ЖЖЖЖ eo deb ЕЕБЖЖЕ ЕЖ ЖҰ ЖЕ ЖҰЖ ЖЕЖ ooo e dee oe e eb deg 





002 ж CE PROGRAMME PERMET DE METTRE L'ECRAN EN MOLE 8 
003 ж C'EST A DIRE EN 240 X 528 4 COULEURS. 

004 * IL EST DONNE AVEC SA REFLIGUE “BASIC 

005 * FOUR CEUX GUI NE SONT FAS FAMILIARISE 

006 * AVEC LE LANGUAGE MACHINE. 

007 ж FOUR LANCER LE PROGRAMME IL SUFFIT DE FAIRE: 
008 + MODE &:CALLHH3OO 

009 ЖЕКЕ КЕКЕК ЕКЕЖ ЕЖЕ ЖЖЖЖ debo obe eee eer 
010 START ORG :300 

011 * LANGAGE MACHINE ° LE MEME EN BASIC 

012 Ж --------------- EE 

013 ж MODEóA:CALLMH300 * 1 MODES 

014 0300 F5 PUSH PSU + 10 PRSWA=FSWZ 

015 0301 C5 PUSH B + 20 PBZ-BCZ 

016 0302 05 PUSH h + 30 FIX=DEX 

017 0303 ES .PUSH H + 40 FHZ:=HL Z 

018 0304 21EFBF LXI H,:BFEF  * 50 HLI=#BRFEF 

019 0307 1EFO MUI Е,240 + 60 EX=240 

020 0309 1684 LODFO МІ р, :84 + 70 DA=HBJ 

021 030B 3630 - MVI H,:30 + 80 POKE HLZ, #30 

022 030D 2B ICX H + 90 HLXzHLZ-1 

023 030E 3440 MVI — H,:40 ж 100 РОКЕ HLZ, #40 

024 0310 2B LOOPI DCX H + 110 HLZ=HLZ-1 

025 0311 3400 MVI M,:00 + 120 FOKE HLZ, #00 

026 0313 15 ICR H * 130 DX=D%-1 

027 0314 C21003 JNZ ІПӨРІ + 140 IF Deco THEN 110 
028 0317 2B ICX H + 150 HLZ=HLE-1 

029 0318 iD ШК E ж 160 EXSEX-1 

030 0319 C20903 JNZ LDOFO Ж 170 IF EZ«50 THEN 70 
031 031С Ei POF H + 180 HLZ=PHZ 

032 0311 Dt POF I + 190 DEZ=FDZ 

033 O31E Ci FOF В + 200 BCA=FBX 

034 O3IF Fi FOF FSW k 210 FSUXSPFSUX 

035 0320 C? RET * 220 RETURN 

036 0321 FIN END 


ЖЕЕ ЖЕКЕ e eee ee p epe elo o 
*5YMHBOUÜL TABLE ж 
ЖЕКЕ КЕКЕК ET 


FIN 0321 LOOFO 0309 100Р1 0310 START 0000. 
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265 CZ=20: D4=20: GOSUB 30: C%=21:DX=10: X1%=X2%: Y1%=Y2%:D1%=D2% 
267 IF AC=1 THEN XG1=XG2: XD1-XD2: YG1=Y62: YD1-YD2 

268 GOSUB 3O:IF P=1.0 THEN 290 

269 GOTO 170 

270 IF (SCRN (D2%+X1%, УМХ) =O) AND (SCRN (X1%-D2%, YMS%)=0) THEN 262 
271 GOTO 250 
- 290 PRINT "TERMINE EN"; MZ; " MOUVEMENTS ET"$ 54/50. Os" SEC" 

291 INPUT "UN NOUVEL ESSAI (OZN) "sR 

292 IF R$-"O" THEN MODE О:РКІМТ CHR$ (12) :M%=0:5%=0:G60T0 20 
295 IF НФ-"М" THEN 999 

294 GOTO 291 

999 PRINT :PRINT "AU REVOIR ЕТ А BIENTOT J'ESPERE":PRINT :END 
1000 REM PROGRAMME ECRIT PAR JACQUES MOENS 

1010 REM ................... CLOS FONTAINE DES DUCS, 6 

1020 REM ................... B — 1310 LA HULPE 

1030 REM ................... TEL. 02/657.95. 40. 


139 





пиа 


roar TINY PASCAL: PASCAL 


COMPILER t 
"unm НИИ 


1, INTRODUCTION 


Ün tape following software modules are at your disposal: 


A. PASCAL SYSTEM V3.1 consisting of: 
t an editor to generate "source code" 
t the Tiny Pascal coapiler which translates the sourcecode 
into "P-code* 


t the 8080 translator which converts P-code inta 8080 statements 


t the runtiae aodules 


B. The Pascal Library which contains a set of procedures that 
can be aerged with the PASCAL prograas, enabling to aake use of 


DAI’s grafic features. If desired you can enlarge the 
contents of this liberary by yourself. 


C. Convertor, which is a program that enables Pascal Vi.X users 


to transform programs ,aade with DAI's BASIC editor int 
the V3.1 compatible format. 


D. A set of examples 


It is important to remark that the "runtime modules" are 
not saved as a separate file on the tape. However, such a 
file is iaportant when the object code of a Pascal program 
is directly loaded into вевогу. 

Ta get the separate "runtime module" perfora: 


t UT 

»Rcr 

> là cr 

> W2EC 9C4 RUNTIME-MODULES cr 


Object files noraally always start at address #965. To 
start an object file perfora: 


3 UT 

1 

> R RUNTIME-MODULES 
> R ОВЈЕСТЕЦЕ 

> 6965 


2, MEMORY MAP 


adddress 2EC .. 9C4 RUNTIME MODULES 
9C5 .. IFFF OBJECT CODE 
2000 .. 2FFF EDIT BUFFER (SOURCE CODE) 
3000 .. &12A PASCAL SYSTEM V3.1 
6128 .. &FFF RUNTIME STACK 
7000 .. 7FFF Р-СОПЕ BUFFER 
B000 .. B34F FREE 


140 


3. HOW GETTING STARTED. 


Following actions have to be peforaed: 


UT 

13 

Ж PASCAL SYSTEM V3.1 
63000 


Now a menu appearsen the screen with fallwing options 


XE? senables you to create the PASCAL Source File. The 
. normal DAI editing features are applicable. To return 

from edit aade, just type <break>. 

{D> :Deletes the contents of the editbuffer. To avoid un- 
desired loose of a sourcefile, before typing "Dr, 
'f? has to be entered first. 

<L? sLoads the editbuffer with a source file frog tape 

{ND sAdds a "source file" to the contents of the edit buffer, 
This option aust be selected when the already mentioned 
PASCAL LIBRARY has to be linked with a created source 
file. The position of the cursor deteraines the insertion 
of the file. 

55) :Saves the contents of the editbuffer on tape. 

<C> :Compilation - the source file in the editbuffer is 
converted into p-code. When a syntax error has beeen 
detected, compilation is halted. On hitting the spacebar 
a return to the priaery aenu is accoaplished. 
Possible errors can now be corrected. The compiler 
provides an option that when selected displays the 
aneaonics of the generated P-code statements. 

<T> Translation of P-code into 8080 code. In principle, 
the translator polls for a set addresses. To avoid 
probleas only respond by <return>. Note begin and end 
addresses mentioned by the translator 

<R> :1oads object file from tape 

OD writes bject file to tape 

«B? :start execution of the object code. When no specific 
address is filled іп, execution will start from #9C55 
When the prgras finishes a returnal to utility ande 
is performed. Just accoaplish G<return> to return to 
to the priaery menu. 

<U> :return to utility. 

<B? return to basic. 

<P) :-not displayed on the priaery option aenu. 
The listing of the source file is displayed on the 
screen and printed on hardcopy equipaent. 


4. TINY PASCAL STATEMENTS 


Following keywords Will be understood by the compiler 


AND END PROC (:procedure) 
ARRAY FOR READ 
BEGIN FUNC(:function) REPEAT 
CALL IF SHR (shift right) 
CASE INTEGER SHL (shift left } 
CONST МЕН THEN 
DW MOD TO 
DN NOT UNTIL 
DOWNTO oF VAR 
ELSE OR WHILE 
WRITE 


Before starting creating Pascal programs, first read 

both appendixes. 

APPENDIX I gives the Tiny Pascal Syntax diagrams 
„APPENDIX II gives a lot of examples on all thes keywords 











mn 


DECLARATIONS? PASCAL 


nam 


CONSTANTS (SINGLE BYTE) ARE PERMITTED 


1 


CONST LF=13;FF=12; 


TINY PASCAL ONLY UNDERSTANDS INTEGERS 
BY THIS A VARIABLE CALLED "TEST" ALWAYS 
MUST BE DECLARED AS 


VAR TESTI,TEST2 : INTEGER; 

! WHILE AN ARRAY OF ELEMENTS "VECTOR" AS 
VECTOR sARRAYE300] OF INTEGER; 

! REMARK THAT 


. THIS COMPILER ONLY UNDERSTANDS 
SINGLE DIMENTION DECLARATIONS 


‚ DECLARATIONS MUST BE PERFORMED IN FOLLOWING 


SEQUENCE 

a. CONSTANTS 
b. VARIABLES 
с. ARRAYS 


am 
TINPUT"QUTPUTÉ 
mt 


A VARIABLE MAY BE PRESENTED IN 
-INTEGER FORMAT : <VARIABLEDZ 
-HEX INTEGER FORMAT : «VARIABLES 
-ASCI : (VARIABLE? 


! VAR А 15 SET Т0 13, 
THIS PROGRAM RESPECTIVELY WRITES 
‚ HEX VALUE OF A (4 DIGITS) 
. DEC VALUE üF à 
. ASCII VALUE OF A (CR*LF) 


VAR A,B : INTEGER; 

BEGIN 

ñ:=13; 

WRITE(? ABA,’ «ALANS 
WRITE(’ «7, "that is all folks’) 
END. ! 7.’ MARKS END OF PROOGRAM 


! THIS PROGRAM DEMONSTATES 
THE USAGE OF THE "READ COMMAND’ 
THE PROGRAM ASKS FOR FOUR DECIMAL 
INPUTS AND DISPLAYS THE HEX REPRE- 
SENTATION 
1 
VAR I,A : INTEGER; 
BEGIN 
[r= 0; 
REPEAT 
WRITE (' "yy 
READ (Ай);! INTEGER INPUT! 
WRITEC * REIS WRITE IN НЕХ РОКАТ! 
iH 
UNTIL 1-4 
END. 


FÜR ... DO EXAMPLE 

100 FUNNY A’S ARE GOING TO BE 

DISPLAYED ON THE SCREEN 

+» IN STEAT OF A SINGLE STATEMENT, ALSO 

A COMPOUND STATEMENT MAY BE USED 

1 

CONST FUNNYA=#40; 

VAR I : INTEGER; 

BEGIN 

FOR 1:50 ТО 99 DO !<-- NO SEMI-COLOMN ! 

WRITE (FUNNYA) ; 

END. 


HOI OUT 
1 REPETITIVE STATEMENTSI 
HUT IO TUE 


FOR ... DO 
REPEAT .. UNTIL 
WHILE .. DO 


FÜR ... DO EXAMPLE 
100 FUNNY A'S ARE GOING TO BE 
DISPLAYED ON THE SCREEN 
.. IN STEAT OF A SINGLE STATEMENT, ALSO 
A COMPOUND STATEMENT MAY BE USED 
1 
CONST FUNNYA=#403 
VAR I :INTEBER; 
BEGIN 
FOR 1:50 TO 99 00 '<-- NO SEMI-COLOMN ' 
NRITE(FUNNYA); 
END. 


| SAME EXAMPLE WITH THE DO..WHILE STATEMENT 


CONST FUNNYA=#40; 


VAR I : INTEGER; 
BEGIN 
I:=0; 
WHILE 152100 DOAS LONG AS I DIFFERS FROM 100' 
BEGIN 
WRITE (FUNNYA) ; 
I:1*1; ‘INCREMENT I! 
END; 
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SAME EXAMPLE WITHTHE REPEAT UNTIL STATEMENT I 
CONST FUNNYA=8403 nimimm 


VAR I : INTEGER; t PROCEDURES AND FUNCTIONSA PASCAL 
MR 

BEGIN 

ч RES 

REPEAT IND *;*! A. PROCEDU 

о П FORMAT: PROC NAME) (a1,a2,..an); 

UNTIL 1:9 | | WHERE а1.. an represent parameters: 1/0 TOWARDS 

END. THE PROCEDURE BÜDY. 


PARAMETERS NEED NOT TO BE DECLARED. 
A PROCEDURE IS CALLED BY ITS NAME. 
PROCEDURES MAY HAVE LOCAL VARIABLES 


tttm FOLLOWING PROGRAM READS A SET OF INTEGERS AND DISPLAYS 


1 CONDITIONAL STATEMENTS 1 IT IN REVERSED ORDER 


uniti 
uiti nn VAR 1,2 + INTEGER; 


A: ARRAYLAOI OF INTEGER; 
THERE EXISTS : : i 
es en RG ‘PROCEDURE READSTRING! 
THE CASE STATEMENT ee 
H ' 
BEGIN 
THE IF STATEMENT . 
Ë 
| BEGIN 
VAR : ; 
ыы Bizet rell ВЕАО СГ) 
BEBIN a 
Бі; 
WHILE B DO ‘ALSO MAY BE В=1! END; 
шш n i PROCEDURE REVERSE STRING! 
Ж: PROC REVERSESTRING (X); 
! . 
IF te THEN WRITE(? HELLO BUDDY" ,13) кы RET 
ELSE IF A-'B' THEN WRITE(? МІСЕ WHETHER? ,13) een 
et SS DO WRITE(ALIIZ,’ "1 
BEGIN ae e 
B:=0; | Торе 1 
WRITE) THIS IS ALL FOLKS’, 131 MEHR T 
+ 
Шы. BEGIN 
ELSE WRITE’ — YOU FOOL’ , 13) ES T 
END ' 
END END; 
: ! MAIN! 
BEGIN 
| NEWL INE; READSTRING ; МЕЙ. INE; REVERSESTRING (J) 
THE SAME FUNCTIUN PERFORMED BY THE EN 
CASE STATEMENT | 
1 
VAR A,B + INTEGER; 
Deg B. FUNCTONS 
B:=1; 
FORMAT: FUNC «НАМЕ (alya2,..an); 
i 11 84, i 
SCH EE WHERE al.. an represent parameters: 1/0 TOWARDS 
Sioa THE FUNCTION BODY. 
ee PARAMETERS NEED NOT TO BE DECLARED. 
CA + WRITE” HELLO BT SIN. — A PROCEDURE 18 ий CALLED IN AN EXPRESSION I.E. 
10? s H H 5 r geese 
E AUE ee MEIER I3) FUNCTIONS MAY HAVE LOCAL VARIABLES 
5' + BEGIN 
120; 
FOLLOWING PROGRAM READS A SET OF 4 INTEGERS AND DISPLAYS 
WRITEC THIS IS ALL FOLKS", 13) 
vs ‚| THE GREATEST VALUE 
ELSE WRITE ҮШ FOOL”, 13) | 
END END 
END. 
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VAR Al, A2,A3,A4,A,GREATEST : INTEGER: 
FUNC МАХА (X1, 12, KS, 14); 
FUNC МАХ2(11,12){ 
BEGIN 
IF X1522 THEN MAX2:=X1 
ELSE МАХ2:=12 


END; 
BEGIN 
MAKAr=MAX2(MAK2(X1, 2)  MAX2 X3, X41) 
END; 
BEGIN 
ҮЗ 
WHILE A=’Y’ DO 
BEGIN 
WRITE(13,” A NEM GAME ? [Y/N]? };READ(A); 
WRITE(13,! =======> input °); 
IF A='Y? THEN 
BEGIN 
READ (512, 422, 532,047) ; 
GREATEST: zMAY4(A1,02, A3, A4); 
WRITEC * GREATEST“) ; 
END 
END 
END, 


nimii 
1 BOOLEAN EXPRESSIONS 
tintin 


BÜDLEAN EXPRESSIONS MAY BE USED IN 
. THE "ІР" STATEMENT 

. THE "WHILE" STATEMENT 

. THE "REPEAT UNTIL" STATEMENT 


EX. IF AW(B+C)/D > E THEN... 
ELSE … 

FOLLOWING EXPRESSIONS ARE VALID 

€ LESS THEN 

> GREATER THEN 

<= LESS OR EQUAL 

= GREATER OR EQUAL 

<) DIFFERENT 


"itin nung 
1 ARITHMETIC OPERATORS 1 
цин 


. + ADD EX. А:=В+С; 
, 7 SUBSTRACT EX. А:=В-0; 
, $ MULTIPLY EX. А:=А4В; 
. DIV DIVIDE (INTEGER) EX, As=B DIVE 
. MOD MODULUS EX. А:=В MOD 8 


FOLLOWING EXAMPLE DEMONSTATES THESE OPERATORS 
VAR А,В,С : INTEGER; 


BEGIN 
WRITE(13,” INPUT B,C : ");READ(PZ, C2); 
NRITE(13, ’ B + £ = °, (89607,13, 

, B - Ü = ’,(B-C%,13, 
, Bx C=’, (ICT 13, 
' B: C= ’,(B DIV OXI, 


В вой C=", (B MOD 807,13) 
END. 


nt 


$ BOOLEAN OPERATORS 3 PASCAL 


шишиши 


THESE ARE: 


. OR EX, А:=В OR C 
. AND EX. Az=B AND C 
. NOT EX. As= NOT B 


. SHL SHIFT LEFT 
. SHR SHIFT RIGHT EX, Ar=B SHR C 


VAR I,J : INTEGER; 

BEGIN 

WRITE(I3," INPUT 2 HEX VARIABLES ©"); READ(I#, JE) 
WRITE(13,! — I QR J ' (I DR J)#, 13, 


DANDI =? (AND DEIS, 
"NOT I= "(NDT DEI, 
' 1542 ET 24,11, 
7 P SHR2 =, (J SHR 28,13) 


END. 


nititur 
1 PEEK AND POOK AND CALLMt 
шт 


„PEEK : Ar=MEM #131; 
. POKE : MEM #131:=2; 
. CALLM: CALL (#D4BE) 
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! Eratosthenes Sieve Prime Number Program іп PASCAL ! 


VAR FLAGS : ARRAYL10001 OF INTEGER; 
SIZE,I,PRIME,K,COUNT : INTEGER; PASCAL 


BEGIN 
WRITE(12,” FROM 1 TILL 7); READ(SIZE?) ; 
SIZE :- SIZE DIV 2; WRITE(13,13,’ 2 7); COUNT a= 1; 


FOR I := 0 TO SIZE DU FLAGSCIJ se 1; 
FOR I := O TO SIZE DO 
IF FLAGSCIJ THEN BEGIN 
PRIME := I+I+3; K := I + PRIME; 
WHILE K <= SIZE DO 
BEGIN FLAGSEK1:-0; K:=K + PRIME END; 
COUNT == COUNT + 1; WRITEC(PRIMEZ,” 7); 
IF PRIME « 10 THEN WRITE” 79; 
IF PRIME < 100 THEN WRITE(C€' 7); 
IF PRIME < 1000 THEN WRITE” 79; 
IF COUNT MOD 11 = О THEN WRITE (13,’ 7) 
END; 
WRITE(13,13,” ',COUNTZ,' PRIME NUMBERS GENERATED’) 
END. 


' PROGRAM TOWERS OF HANOI ! 


VAR I, X, Y, N, NDISKS, TIME : INTEGER; 


D : ARRAYE S31 OF INTEGER; 
Z z ARRAYE 21 OF INTEGER; 
PROC MODE (M) š 
BEGIN 
MEMC#7D01:=M; CALL (#7FD) 
END; 


PROC COLORG(C1,C2,C3,C4) ; 
BEGIN 
MEML#7DO1l:=C1; MEMLS7D11:-C2; МЕМІЯ7021:-С3; 
MEMC#7D31:=C4; CALL (#82B) 
END; 


PROC DRAW(O(X1,Y1,X2, Y2,C) ; 
BEGIN 
MEMLI47DZ1:-X1 AND 255; MEML#7D41:=X1 SHR 8; 
MEMC#7D51:=X2 AND 255; МЕМС#7061:=Х2 SHR 8; 
MEML#7D11:=Yi; MEML47D21:-Y2; MEMC#7D01:=C; 
CALL (#886) 
END; 


FUNC XMAX; 
BEGIN 
MEML#7D21:=0;5 MEML#7D51:=0; MEML47D61:-0; 
CALL (#912); XMAX:=256%MEMC#7D41+MEMC#7D31 
END; 


PROC WAITTIME(T) 5 
BEGIN 
MEML#1BE1:=T AND 255; MEMC#1BFIJ:=T SHR 8; 
REPEAT UNTIL (MEMC#1BE]=0) AND (MEMLSGIBF 1-0) 
END; 
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PASCAL 


PROC MOVEDISK(F,T) ! LOCAL declared within hanoi 
VAR Xi, X2, Y, Hi, H2 : INTEGER; 
BEGIN ' procedure body of movedisk ! 
WAITTIME (TIME); 
X1:=DLUZLIF1+F*£NDISKSI1+F+£24; 
Х2:=11+ЕЖ24; Y:=Z[F1:44; 
DRAW(X1,Y,X2,Y, 733 ! whipe out E 
DRAW (X2+2, Y, ABXF*-24—X1,Y,7)5 ! "from" disk ' 
x12=DLZLFI+FXNDISKSI+TX24;3 
Х2:=11+ТЖ24; Ү:-7ГТ1%4--4; 
ПКАМ(Х1,Ү,Х2,Ү,1); ! draw А 
DRAW (Х2+2,Ү,48Ж%Т+24—Х1,Ү,1); ! "to" disk ! 
ZLTJ:=ZCT]+135 
H1:=ZCTI+TSNDISKS; H2:=Z[FI+FXNDISKS; 
DtH11:-DLIH23;5 ZLF1:-2f[F1-1 
END ' movedisk !; 


PROC HANOI(N,F,T.,C); 


BEGIN ! procedure body of hanoi ! 
IF N-1 THEN MOVEDISK(F,T) 
ELSE BEGIN 
HANOI (N-1,F,C, T); ! RECURSIVE def. 
MOVEDISK(F,T) 3 
HANOI (N-1,C, T.F) ! 5 
END ' else ! 
END ! hanoi |; 


BEGIN ! ЖЖЖ main program ЖЖЖ ' 
MODE (3); COLORG(7,4,5,1)3 
REPEAT 
WRITE (12, 7 ENTER NUMBER OF DISKS (1 — 11) : 7); 
READ (NDISKS%) 
UNTIL (NDISKS>O) AND (NDISKS<12) 
DRAW CO, O, XMàX,0,4); 
FOR I:-1 TO 3 DO DRAW(IX24-12,0,1*24—12,60,5);5 
FOR X:=1 TO NDISKS DO 
BEGIN 
Ys=4kX; ОСХ1:=Х; 
DRAW(X,Y.11,Y,1)3 DRAW(CIS,Y,24—X,Y,1) 
END ' x-loop !; 
ZCOJ:=NDISKS; Z[11:-0; Z[2]:=0; 
WRITE (15, 7 ENTER TIME BETWEEN MOVES 7); 
WRITE” (UNITS OF 1/50 SEC) : 7); READ(TIME?) ; 
WRITE (13, ° PRESS ANY KEY TO START’); 
READ (X); WRITE (12); 
HANOI (NDISKS, 0,2, 1) 3 
N:=1;5 FOR І:-1 TO NDISKS DO М:-2%М; N:-N-1; 
WRITE (13,13, 7 TOTAL NUMBER OF MOVES MADE = ',NX) 
END ! main !. 


10 REM ONE TEXT LINE IN MODE 5/6 
20 COLORG O 5 10 15 
зо MODE &:FOR Х=1 TO 20 


35 DRAW RND (ХМАХ) „ 20+RND (200) RND (XMAX) „ ZOERND (200) 21+RND (5) : NEXT 


40 POKE #680B,#7A:REM CONTROL BYTE 
30 POKE #680A, #40: КЕМ COLOR BYTE 


60 FOR X=#6805 TO 46787 STEP -2:POKE Xs #40+RND (26) :PDKE X—3, O2 NEXT 


70 IF GETC=32 THEN END 
80 COLORG O RND(16) RND(16) RND(16):GOTO 60 
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!PROGRAM DECODE! 
CONST STOP=#FF3 ЕХІТ=#5000; 
VAR STADR, INDX, NUM: INTEGER; 
PROC CRLF; 
BEGIN WRITE (13) END; 
PROC FMT (VAL, LEN); PASCAL 
VAR I, J: INTEGER; 
BEGIN !FMT! 
J:=VAL; 
FOR I:-2 + (J=0) TO LEN DO 


IF J=0 THEN WRITE (32) ELSE J:=J DIV 10; 


IF J>? THEN WRITE (7&7); 


WRITE (VALZ) 


END 
BEGIN! 


!FMT!; 
MAIN! 


WRITE (12,'START DECODING AT 7);READ (STADR#) s CRLF s 
CRLF; INDX: =O; 
WHILE (STADR < #7FFF ) AND (MEMLSTADRI <> STOP ) DO 


BEGIN FMT (INDX, 10)5WRITE С” 7)3 INDX:=INDX+1; 


NUM: =MEMESTADR]; 
CASE NUM OF 


0 s WRITE CLIT’); 
1 z WRITE COPR”); 
2,812 : WRITE CLOD”); 
3,815 : WRITE CSTO”); 
4 : WRITE CCAL”)3 
5 : WRITE (? INT’); 
ó : WRITE (*JMP”); 
7 : WRITE (C JPC’); 
8 : WRITE (’CSP’) 


ELSE BEGIN WRITE (GILL); MEMCSTADRJ:= STOP END 
END; !CASE! 
IF (NUM=#12) OR (NUM=#13) THEN WRITE (7X7) 
ELSE WRITE (32);WRITE (32); 
WRITE (MEMCSTADR+11%,",7)5 
МИМ: =MEMCSTADR+3] SHL 8 + MEMLSTADR+21; 
WRITE (NUMX)$;CRLF; 
IF INDX MOD 15 = O THEN 
BEGIN READ (NUM);IF МОМ=° 5° THEN CALL (EXIT) END; 
IF MEMLSTADRI <> STOP THEN STADR:- STADR + 4; 


END; !WHILE! 


END. ! MAIN! 

10 REM DRAGON KURVE 

15 REM NAAR DRAGON CURVE 

16 REM H4 RECURSION AND ITTERATION BOEK : LISP DOOR P.H WINSTON 
20 REM RECURSIEF GEDEFINIEERDE FIGUUR 

25 CLEAR 3000 

30 DIM RETST(20.0) ,ST(50. 0) : SP=0. O: RETSP=0. O 

40  ANGLE=0.0 

45 MODE 6:COLORG В 10 13 15:MIDX=XMAX/2.0:MIDY=YMAX/2.0 

50 LENGTH-12.0 

60 Р=1.0:60Т0 1000:REM CALL FUNCTION 

70 IF LENGTH>1.0 THEN X-MIDX«LENBTH£CUOS (ANGLE) : Y=MIDY+LENGTHESIN (ANGLE) s DRAW 
X,Y MIDX,MIDY 21:MIDX-X:MIDY-Y:GOTO 90 

80 БОТО 2000:REM FUNCTION RETURN 

90 LENGTH-LENGTH/SOR (2. 0) : ANGLE=ANGLE+SIGN#P1/4.0:SIGN=1.0 

100  P-2.0:80TO 1000:REM CALL FUNCTION 

110 ` LENGTH-LENGTH/SOR (2. 0) : ANGLE=ANGLE-SIGN#PI/4.0:SIGN=-1.0 

120 P=3.0:60T0 1000:REM CALL FUNCTION 

130 GOTO 2000:REM FUNCTION RETURN u сс 

1000 REM ======= CALL FUNCTION ====== | _ Fy £o 

1005 ST(SP)-SIGN: SP=SP+1.0 › يت‎ \2 
1010 ST(SP)=LENGTH: SP=SP+1.0 gy М” a 
1020 ST(SP)-ANGLE: SP=SP+1.0 T Gei 
1050 RETST(RETSP)=P:RETSP=RETSP+1.0 Жы А5 
1040 GOTO 70 Rs ET 
2000 REM ======= RETURN FUNCTION ===== s کک‎ 
2010 IF RETSP=0.0 GOTO 50 CH А 
2050 =SP-1.0: ANGLE=ST (SP) > ر‎ — 
2040 SP=SP-1.0:LENGTH=ST (SP) ао A سا‎ 

2045 SP=SP-1.0:SIGN=ST (SP) سا ےا‎ 

2050 RETSP=RETSP-1.0 

2060 ON RETST(RETSP) GOTO 70,110,130 























PROC COLORT(C1,C2,C3,C4); 
BEGIN 
МЕМС#7001:=С1; 
МЕМС#7051:=С4; 
END; 


CALL (#7DE) 


PROC MODE (M); 
BEGIN 
MEML#7DO1:=M; 
END; 


CALL (#7FD) 


PROC COLORG(C1,C2,C23,C4); 
BEGIN 
МЕМС#7001:=С1; 
MEMC#7D31:=C4; 
END; 


CALL (#82B) 


PROC DOT(X,Y,C)3 
BEGIN 
MEML47DS51:-X AND 2555 
MEML#7D21:=Y; MEML#7DOJ:=C; 
END; 


PROC DRAW(X1,Y1,X2,Y2,C)35 
BEGIN 
МЕМС#7051:=Х1 AND 255; 
MEML47D51:-X2 AND 255; 
MEML&7D11:-Y1; 
CALL (#886) 
END; 


PROC FILL (X1, Y1, X2, Y2,C) ; 
BEGIN 
MEML47DZ1:-X1 AND 255; 
MEMC#7D51:=X2 AND 255; 
MEME&7D11:-Y1; 
CALL (#8CC) 
END; 


FUNC SCRN(X, Y); 
BEGIN 
MEML47D51:-X AND 255; 
MEML&7D21:-Y; CALL (#912); 
END; 


FUNC XMAX; 
BEGIN 


MEMC#7D11:s=C2; 


MEML#7D11:=C2; 


MEMC#7D21:=Y2; 


MEME&7D21: -C3; 


PASCAL 


MEML#7D21:=C3; 


MEML#7D61:=X SHR 8; 
CALL (#84A) 


MEML#7D41:=X1 SHR 8; 
MEML47D631:-X2 SHR 8; 


МЕМГЯ7001:-С; 


MEML#7D41:=X1 SHR 8; 
МЕМС#7061:=Х2 SHR 8; 
MEML4S7D21: -Y2; 


MEME #7D0]: =C; 


MEML47D61:-X SHR 8; 
ӘСЕМ: =MEMCL#7DO] 


MEM Е#7021:=0: МЕМ [#7D51:=0; MEMLiE7D51: =O; 


CALL (#912); 
END; 


FUNC ҰМАХ; 
BEGIN 


XMAX : =2562MEML#7D41+MEML#7DS3] 


MEM [#7D21:=0;MEM [#7D5]1:=0; MEML47D61: =O; 


CALL (#912); YMAX: -MEMES7D131 


END; 


FUNC CURX; 
` BEGIN 
CALL (#938) ; 
END; 


CURX e =MEMC#7DS] 


FUNC CURY; 
BEGIN 
CALL (#938) ; 
END; 


CURY : =МЕМЕ#7061 


PROC CURSOR (X.Y); 
BEGIN 
MEMC#7D51:=X; 
END; 


MEMC#7D61:=Y3 


FUNC PDL (1I); 
BEGIN 
MEML#7DO1:=1; 
END; 


CALL (#94F)3 PDL:=MEML#D81 


PROC WAITTIME(TIS 
BEGIN 
МЕМГЖІВЕ1:-Т AND 255; MEMC#1BF1:=T SHR 8; 
REPEAT UNTIL (MEMC#1BEI=0) AND (MEMC#1BF 1=0) 
END; 
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DAI-RS232 
Volgende ervaringen had ik (als EEE het EEN van een printer... 


DAI RS-232 (rev.5) 


Bij het aansluiten van een EPSON MÍ-82 op aijn 2 maand jonge DAI (via R5-232-parallel interface), bleek een en ander 
niet naar behoren te funktioneren: het listen op de DAI liep rustig verder zonder op de printer te wachten. 

Veraits printer en interface bij aankoop uitgetest waren, belandde de bewuste DAI spoedig op de operatie- 

tafel voor een inwendig onderzoek, | 

Bijgaande figuren’tonen print-layout en schema van de RS-232 DIR ingang (&ain-board rev.5). 


INTERRUPT: hangt de Sék weerstand bij vorige revisies niet aan massa ipv aan +5V ? 


Uit aetingen bleek dat bij een "MUT READY’ signaal (0.13 V), de spanning op ingangspin 10 van іс 74L5373 
(latch) 0,95 V bedroeg wat te hoog is (volgens de ic-specs aoet V(IL) < 0.8 V, low-level input voltage). 

De spanningsval over de 3k3 weerstand is veroorzaakt door de stroos via de 56k weerstand (0.072 ай) en 

de 'low-level input current van het ic (0,176 ай) die nog ruis binnen de ic-specs valt (CIL) < -0.4 af) . 
Door de 3k3 R te verlagen tot 2k (aet parallelweerstand van DÄI was de patient weer in uitstekende gezondheid. 


EPSON MX-82 met VERBORGEN TALENTEN 


80 karakters іру de in de manual aangekondigde 96 spoorden &ij aan tot een tweede operatie: bij inwendig nazicht 
stand DIP-switch 1-9 in de OFF-stand, | 
Over de funktie hiervan zwijgt de aanual in alle talen en vermeldt alleen: 
. "Never set this pin to the OFF position, always leave it in the ON position’. 
En inderdaad, in de ON-stand krijg je de volle 98 karakterbreedte, in de OFF-stand slechts BO (+ 16 sarge achteraan). 


Tot slot nog een happy end ! 
Bij een vergelijking met de control-codes van de MX-100 waren 3 hiervan niet terug te vinden in de MI-B2 aanual: 
uitproberen dus en... set positief resultaat ' 
ESC 6 double print {advance paper 1/216°’ and repeat line) 
ESC H cancels ESC 6 
ESC M elite print (letterbreedte tussen normal en condensed) 
Deze codes staan dus vanaf nu ook in aijn MI-82 manual. 


Heraan MOEYS 


3200 KESSEL-LO (LEUVEN) 





(uc 7415373) 
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machinetaal in een rem-statement 
(Hin wol "eigen к Иа ыс 


Fu MC y (De Mi kro согуу udder Zeitoch haft lee gp) 
wordt op da „nao үө de en om Ч ( оъ іе, okuk fe 
„machinetaal ж te L Zen IB Bin Aarte KEM 

lange fl. : leg wordt Jiu 20АА> kear о de. — аА 


run ann Bari jorw ranma : 
Nadul: Ri olondu ot miet 4d жала .... 
Moci ck dans: Die korun rir het Manso Burda шала de olde. 
D Hoe wk ji waan de gebuihte REM neget piv hel geheugen ait ? 
Ar га REM senn 


MEO LaF ‚ 9299 Ge де Ес, Өз ad aak 
Lë AN “Se vaw de 4 aric text а, Ao ye 
Pe ес. КМК СЕ daar : -5 





PEP FF FF FF FF FF FF FF FF FF FF RE FF OG Уф $^ 03 
.-----ф> 2 
$2 F ØE 29 22 2⁄4 20 24 dd dd FF FF FF FF FF fF FF ZF 


IF FF © wo va ok heaps (22 ED Be Am) 
bj da p. Vor bud 70 

р nun 
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Ф ад ma de REM Komeu 5 l-kauo 
Zë. Zei : S „maal iG ez x 


@) In plants N One Emael 24 Burma we ook y sto dts 
u Z dee гел. лал achi atl ocn progres ma vormen. Det 
armuma Rou. dou алал о орал nk am МЕМ #3F/ 
бий aar оова. тотола 45 Т QM 
= —¿ pro progamma 6. so REM. 
_ de ехе Legiut 75%, SEN ab wo el 2e 
Na wer am o 
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CLEAR 


> gegboer wordeu 
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k t So de (шо Ek mj feet . 3 

plakje seh rada. i rg F е We? Go ten Fr 
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© Eem wonbeeld 








D re EES sm rijd шк a ad н E TET me ROT Oi opem Ша ишы сайыс ы. сыны ыы иш anes: 


FREE ae Loe 
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md x: 


rlet ge programm. ou at alle alle Бала Шол op del rocher’ 
Vom EHRE C d ғ) аб tot онгу (#865 - eraf 2) e 


Peho 

/ #3 F / cs PUSH B inhoud v. 

2 ?3F2 PS PUSH D | аага бло bemane op ptack 

3 $3F3 € 5 PUSH 4 

y фе F ç FS PUSH PSW 

ç ФЗЁ 5 фе фс Mv; B jc CHE (2) m B 

6 ЗР] ЗЕ E МУТ Й; FF aer “in А 

Lh. AIFI ср 6 @ pp CALL “врбф CHR} (КАУ) ochnm <- 

ó p3 FC 3D DER A ' <A> — <А>-/ | 

ШЕ cpu d CIP B | Us «^» - «&» £ $ dan Е 

x 2. С 2 ғ9 Ф š 202 | mamn PETI ن‎ 
/ “FOP Psw 

г 5 29% E/ POP # neo ler vau olack falar 

D $ 4 $3 D/ PoP D rud 

€ ó yu cl PoP B | 

F $ygs$ eg RET 


ч NON AML. bevat 2 Daaro begint fot Basic Ara 
ea ed 70 REM 2 dyla, бше А Q 
26 CALM # 3F/ 
AO END 


fed y 5 „с tute Peene noorden im а7 o др asan g фзғ/ ée. 
Ф035 ale 24 у pawange don da progamıma byka. 
| Hel gehst kan мл aly Harte guawed om geladen punden, 


Leu REM 22 kan dol 122 skews Фоайе ; fet machineteat 
ar olur pow оос олло аа. тна алаа. lengle hebber 
Konden аё ú слой, сиет олер, хл.) 
@) 527 е an A ЖЕЛІГІ ( olat o] od at фзес) 


адл, jns Ee 

0% R la faa 2520 Hays ben" 
# óp KC Е 2. y» Ж wa dl Gat Алл 95а 
ur 22522 
Dit adn дә wer, Pa бло 9je LER жм) fag deze 
амал ten Tech де 2 24% k. a ol 4.4. war 


PE Rou nu EE — kamas 


ж REM -.-- 


25 ADRES = PEEK(H 87%) 4256 ^ PEEK (H: ғ) + S 
24 COLL ADRES ` 2 ч) % 
yp END 


We kj kus, oam mt op #29F on 5 waa ok bl Suffer begin t . 
оол, te Go. ‚un lag 
% EEE 


150 


ee rn Кол 


GRE EE 
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TEKENS NAAR SCHERM 
KEM + MLP + REL IMAP 
HEX DUMP 


P3 EP FF FF FF FE FF FF FFE кє FF РЕ JF FE 2) bb bp A9 
p3 Fó 7с c9 ps ES F5 20 P J2 и ^ 99 19 96 dc 3E FF 
dea ср 6% DD 3 BE ES cø EI FI EI ру ci co 21 T 79 
9046 #5 4j dern nn 24 Жы dp 22 Ag w bf 
Piaf pb Mob 2 g 15 Pd d fo GF y Bp py ob Ps фу 
dyad BB 1E Вз GF ор di FF dä арау ff OF au yy 52 
dyyp YS 43 4 49 ж о) PS Ус % уу 98 FY Së "p Ad 
qs Gd dj br 24 a sid dé И M dd фр dé dg E op 


ф 2а Ё ó? ointen maar tat of Gxt 
$15 6 се | P = = f 


/ REM ....... oorspron й. 90 x acl x _._. 
25 ADRES = PEEK(A RAD) 5256 + PEEK (eager 
Bf CHUM ADRES 

yp END 
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1. 


INTERACTIEVE VIDEOTEX 


BEKNOPTE BESCHRIJVING 


WAT IS INTERACTIEVE VIDEOTEX? 


VIDEOTEX is een communicatiesysteem dat o. a. toelaat informatie, 
opgeslagen in een computergeheugen, te verspreiden en op te vragen. 
Daartoe heeft de gebruiker een telefoon nodig evenals een terminal 
bestaande uit een beeldscherm en een klavier. Het kan hier gaan 

om een specifieke terminal, een aangepast kleurentelevisietoestel, 
een persoonlijke microcomputer enz... 


Terloops weze opgemerkt dat het coderingsschema van de inter- 
actieve videotex eveneens gebruikt wordt voor de omgeroepen А 
videotex, genoemd Teletekst. Het betreft hier een éénwegsysteem 
voor het verspreiden van. informatie, die verzonden wordt bij 


middel van het televisiesignaal. 


Interactieve videotex is een systeem met individuele tweeweg-transmissie 
dat aldus een dialoog tussen gebruiker en computer toelaat. De op- 
slagmogelijkheden van het ganse systeem zijn slechts beperkt door 

de geinstalleerde stockeringscapaciteit. De bediening is Zeer een- 
voudig en door enkele toetsen in te drukken krijgt de gebruiker alle 
gekozen informatie bijna onmiddellijk op het scherm. Dank zij de 
interactie zijn ook bewerkingen en transacties mogelijk. 


REGIE VAN TELEGRAFIE 
EN TELEFONIE 


Departement Informatieverwerking 


Projectgroep Videotex 
Secretariaat : 02/216 38 27 


April 1982 Projectgroep Videotex R. T. T. 





2. DE SAMENSTELLENDE ONDERDELEN 





2.1. Algemeen schema 


telefoon 


gebruiker . informatieleverancier 


terminal 


He 





klavier 


geschakeld telefoonnet 


; openbare dienstverlenende š uad: 
VIDEOTEX-computer ataban 





verbindingsnet 












private DVC ; private DVC 


private DVC 
(bv. bank) (Бу. Tour-operator) 


(bv. Service Bureau). 





Alle onderdelen die deel uitmaken van de R. T. T. -infrastructuur zijn in een dikkere 
lijnsoort weergegeven. 
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2.6. 


2.2. De dienstverlenende computers (DVC) 


De DVC's bevatten gegevens en programma!s. 


De (voorlopig enige) openbare DVC die door de R. T. T. zal uitgebaat 
worden, zal de volgende functies bevatten : 
- kontrole van de verrichtingen (o. a. toegangsbeveiliging, taxatie) ` 
- Programma's voor de zeer eenvoudige ondervraging van de 
databank . ' 
- faciliteiten voor de inleiding en bijwerking van gegevens in 
deze databank 
- een brievenbusdienst voor de gebruikers 
- een dienst voor gegevensvastlegging 
- doorschakeling naar private DVC's. 


De private DVC's bevatten programma's en Gegevensipuctunen die 
door hun exploitant vrij bepaald worden. i 

Gebruiker 

Hij of zij die bij middel van een terminal gebruik maakt van de 
diensten van een DVC van het videotexnet. 

Dienstaanbieder of informatieleverancier 


Diegene die over gegevens beschikt of een toepassing beheert welke 
hij ter beschikking wil stellen van bepaalde of alle gebruikers. 
Hij kan deze dienst onderbrengen : 


— op de openbare DVC of, 
- op zijn eigen private DVC of, 
- op een private DVC van een service bureau. 


De dienstaanbieder kan zijn toepassing, zo gewenst, commercialiseren 
door de gebruiker een vergoeding aan te rekenen voor de geconsumeerde 
diensten. Deze bedragen kunnen door de R. T. T. worden geïnd. 


De terminal 


Deze kan teksten en eenvoudige grafismen weergeven in 8 kleuren. 


Hij kan eventueel van een drukkertje of een recorder worden voorzien 
voor de vastlegging van de dialoog. 


De programma's voor ondervraging van de databank uitgebaat op de 
openbare DVC 


- De hier: ontwikkelde videotex-logica laat een snelle en precieze 
opzoeking van informatie toe. 
- De informatie wordt opgeslagen in een eenvoudige boomstructuur : 


Voorbeeld : 


VOEDING UURREGELING VOERTUIGEN 
FILM VERVOER T.V.. 
TREIN BUS VLIEGTUIG 
DELTA LUFTHANSA SABENA 
NAIROBI ROME NEW YORK 


- De opgeslagen informatie kan ook langs een bepaald "trefwoord" 
worden opgezocht of via de naam van de dienstaanbieder. 


3. WAT IS KARAKTERISTIEK AAN INTERACTIEVE VIDEOTEX? 
EE 


3.1. In het algemeen 
Videotex is een snel en eenvoudig informatiesysteem dat iedereen 
kan gebruiken, zonder speciale opleiding. 
Informatie kan op een zeer eenvoudige manier worden opgezocht, dank 
zij een aangepaste zoekstructuur. 
De informatie kan zeer gemakkelijk "up to date!! gehouden worden. 
In principe is de opslagcapaciteit onbeperkt. E 
Bij videotex kan een goedkope terminal (TV scherm) gebruikt 
worden. . ` I 
. Met videotex zijn heel wat grafische mogelijkheden voorzien 
‘zodat een aantrekkelijk beeld opgebouwd kan worden (kleuren, 
knipperen, ...). 
Twee richtingscommunicatie tussen gebruiker en videotex-systeem 
laten alle types van interactie toe. 
De gebruiker kan ook boodschappen sturen naar het videotex-centrum 
of andere gebruikers. | 
De "besloten gebruikersgroepen! kunnen de informatie beperken 
tot hun leden. 
De informatie is beveiligd met persoonlijke paswoorden. 
Beperkte dataverwerking is mogelijk op de openbare DVC o. a. 
gegevensvastlegging. 
Over drachtsnelheid : 
- van abonnee naar videotex-systeem 
- van videotex-systeem naar abonnee 


7,5 tekens per seconde 
120 tekens per seconde 


3.2. Voor het bedrijfsleven 


Naast een informatiebron is videotex een goed communicatiesysteem, 
om relaties met geografisch gespreide filialen, verdelers, kantoren 
of personeelskernen te onderhouden. 

Een snelle verspreiding van veelgebruikte en vaak wijzigende ge- 
gevens naar vele medewerkers is dan mogelijk. 

Ook intern voor een groot bedrijf met vele afdelingen en diensten 
kan videotex de communicatieproblemen oplossen. 

Door het opzetten van "besloten gebruikersgroepen" blijft de vaak 
vertrouwelijke informatie beperkt tot de leden. 

De informatieleverancier bepaalt zelf wie toegang heeft tot zijn 
informatie en aan welke prijs. 

Het is mogelijk met de videotex-dienst toegang te krijgen of te 
verlenen tot uw eigen of andere computers. Daarenboven kan op 
termijn een internationaal schakelnet tot stand komen. ' 
Videotex is een ideaal publicitair medium voor grote verspreiding 
met attractieve grafische mogelijkheden. | 

De informatieleverancier kan op een eenvoudige en efficiénte 
manier zijn informatie "te koop!! aanbieden, 
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4. VOORBEELDEN VAN TOEPASSING. 





Financieel : Agentschappen krijgen diverse informatie ter beschikking, 
bv, beursberichten, stand der rekeningen, financiële, 
juridische, fiscale informatie, boodschappendienst. 


Homebanking. 


Verzekeringen : Opvolgen van contracten van de klanten. 
Speciale reglementeringen, berichten, tarieven. 


Toerisme, transport :- Informatie aan de reisbureau's, catalogus, 
Kane actuele tarieven, beschikbare zitplaatsen of 
kamers, onmiddellijke reservaties, boekingen. 
- Uurregelingen allerlei : treinen, vliegtuigen,... 


Automobielsector : Videotex-net bij dealers, invoerders, garages, 
minem voor berichten, catalogen, prijslijst, wisselstukken, 
voorraad wagens, ... 
Openbare dienst : Het omvangrijke pakket aan reglementen, wetteksten, 
E Ы procedures. 


Uitgeverijen : Verspreiden van vakinformatie ... 


Bedrijfsnieuws : Groepering van diverse gegevens over de bedrijfs- 
DE Ee wereld. | 


Distributiesector : Communicatie met filialen, franchises. 
HR Winkelketens. 


Immobilién : Informatie voor en tussen makelaars. 
Aanbod aan het kliénteel. 


Wetgeving : Gestructureerd bijhouden van wetten, reglementen, arresten, 
Staatsblad,... 


Verenigingen : informatie voor de leden van de beroepsvereniging. 
Aankondigingen, vergaderingen, brievenbus,... 


Voorlopige doc. - RTT-VTX 4-82 


faculteit 


[2 ° CLEAR 3000:PRINT CHR$ (12) 

E INPUT " FACULTEIT"; FZ: PRINT 

` 10 DIM N% (255) 

Ё 15 S%=-1:V%=1:N%(0)=1:REM INIT. 1! 

| 19 PRINT :PRINT CHR$ (#E);FZ;" !":PÜKE #131,1 

| 20 5%4=5%+1: TZ=O: WZ=0 

29 CURSOR 10,20:PRINT VZ 

| 30 BZ=N% (TZ) / 10000 

| 40 AZ=N% (TZ) -100008B% 

[ 50 AL=ALEVE 

60 BY=BLXV% 

70 AL=AL+W% 

| 80 A2Z%=A%Z/ 10000 

90 A1L%=AZ-A2ZZ*¥ 10000 

100 B%=B%+A2% 

Ñ 110 — WZ-BX/10000 

Е 120  Bi1X-BZ-WXt10000 

Ё 150  NX(T720-061X-B1X*10000 

P 140 TZ=TZ+1 

150 IF TX-1«»8X GOTO 30 

200 | IF NX(SX)-0 THEN SZ-8X-1 

205 ` VX-VX*i:IF F%<>V%-1 THEN 20 

210 POKE #131,0: TAX-SX:P$-"" 

220 mBZ=NZ (TZ) / 10000: RZ=NZ (TX) -BZX10000 

{ 250 S$=STR$ (BZ) :S$=RIGHTS (S$, LEN(S$) -1) :5$=LEFT$ (S$, LEN (S$) -2) 

235 IF S$="0" THEN S$-"" 

240 T$=STR$ (AZ) : TS=RIGHTS (TS, LEN (TS) -1) : T$=LEFT$ (TS, LEN (T$) —2) 

250 IF B%<>0 THEN IF LEN(T$)<4 THEN T$="0"+T$:60TD 250 

260 P$=5$+T$: T%=T%-1i:IF -TZ-1 GOTO 350 

270 FOR TZ=TZ TO O STEP -i 

280 B%=N% (TZ) / 10000: AZ-N7. (TZ) —BZ#10000 , 

290 St$=STR$ (BZ) :5$=RIGHT$ (S$, LEN (S$) -1) : S$=LEFTS (S$,LEN(S$) —2) 

300 IF LEN(S$)<4.0 THEN S$-"O"48$:GÜTO 300 

310 T$=STR$ (AZ) : TS$=RIGHTS (TS, LEN(TS) —1) 2 TS=LEFTS (T$, LEN (T$) —2) 

320 IF LEN(T$)<4 THEN ТФ-"О"%7%:б0Т0 320 

у 330 P$=P$+5$+T$: IF LEN(P$) >65 THEN GOSUB 1000 
` 340 NEXT TZ 

` 350 IF LEN(P$)<5 GOTO 358 

351 FOR UX-5 TO LEN(P$) STEP 5 

352 D$=DS+LEFTS(P$,5)+" " 

354 . PS$-RIGHT$(P$,LEN(P$) —5) 

356 NEXT UZ 

358 PRINT D$;:PRINT P$:P$="":D$="" 

999 END 

1000 O0$-RIGHT$(P$,LEN(P$) -65) 

. 1010 P$-LEFT$(P$,65) 

*.1020 FOR UX-5 TO 65 STEP 5 

1030 D$=D$+LEFTS(P$,5)+" " 

1035 P$=RIGHT$ (P$,65-U%) 

1040 NEXT UX 

1050 PRINT D$:P$=0$:D$="" 

1060 RETURN 


FACULTETT?100 


ioo ы 
93326 21544 59441 52681 89925 88562 66700 49071 59682 64381 62146 85929 65895 
21759 99932 29915 60894 14639 76156 51828 62536 97920 82722 37582 51185 21091 
68640 00000 00000 00000 00000 000 
END PROGRAM 
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cassette list 


5 REM CASSETTE LIST rev 5. ARTS 

6 CURS-20.0 

10 MODE O:PRINT CHR$(12);:POKE #131, 1: AD$="" 

30 FOR AZ=1 TO 21:READ ВХ: AD$=AD$+CHR$ (BY) : NEXT 

40 ADZ=PEEK (VARPTR (AD$)) IOR (PEEK (VARPTR(AD$)+1) SHL B) +1 

SO ` PRINT "DIT PROGRAMMA" 

51 PRINT "GEEFT EEN INHOUDSOPGAVE VAN EEN CASSETTE" 

52 PRINT "A OP 110 BAUD VOOR DE MATRIX-PRINTER" 

53 PRINT "B OP 300 BAUD VOOR EEN MODEM VERBINDING" 

54 PRINT "C OP 1200 BAUD VOOR DE P880 VERBINDING" 

55 PRINT "D OP 2400 BAUD VOOR HET INTEL-SYSTEEM" 

56 PRINT "E OP 9600 BAUD VOOR HET DISPLAY" 

60 PRINT " МАТ WORDT GEWENST ? MAAK UW KEUZE ! "; 

70 =GETC: IF K<#41 OR K>#45 THEN GOTO 70 

73 REM WAIT TIME 20 

75 PRINT CHR$ (12) 

80 ON K-#40 GOSUB 91,92,93, 94,95 

81 POKE #FFOS,BAU:GOTO 100 

91 BAU=1 . O: RETURN 

92 BAU=#84 : RETURN f 

93 BAU=#88: RETURN 

94 BAU=#90: RETURN 

95 BAU=#CO: RETURN 

160 INPUT " CODE NUMMER VAN DE CASSETTE IS :";CN$:PRINT :PRINT 

111 PRINT "WAT IS DE DATUM VAN VANDAAG _ YYMMDD" 

112 INPUT "VB 14 MAART 1982 IS 820314 "zDAT$:PRINT 

113 IF CN$-"" OR LEN(DAT$)<>6.0 THEN GOTO 1998 

115 PRINT CHR$(12) 

120 POKE #131,0:PRINT "DATUM : "+DAT$:PRINT CN$:FOR AX-O TO LEN (CNS) —1: PRINT ' 
-";:NEXT:PRINT CHR$ (#D) :CPTZ-1 

1000 CURSOR 0,23:POKE #FFOS,#CO:POKE #131,1 | 
1001 PRINT * в 
1010 CURSOR 0,23:CALLM AD%:CURS=CURS-1.0 

1011 IF CURS-0.0 THEN CURS-20.0 

1012 CURSOR 1,CURS 

1015 POKE #FFOS,BAU:POKE #131,0:POKE #40,#30:PRINT CPTZ;" — "s 

1030 FOR AZ=#BFE7 TO #BF85 STEP -2:PRINT CHR$(PEEK (AX) ) ; : NEXT: PRINT CHR$ GED) 
1035 IF GETC<>0 THEN 2000 

1040 CPT%=CPT%+1:GOTO 1000 

1778 PRINT :PRINT "DIT PROGRAMMA WERKT NIET ZONDER GOEDE GEGEVENS" 
1999 PRINT "START HET PROGRAMMA OPNIEUW MET *RUN’":PRINT :END 

2000 POKE #131,1:PRINT :STOP 

2010 GOTO 1040 

10000 DATA RES, #05, #D5, SES, #01, #40, #00, #11, #B1, #80, #21, #9E, SEG, HCD, CE, #02, HEL 1 
D1, #C1,#F1,#C9 


100 REM /*t DNE 241 MODIFIER 21MRT82 жж/ 

200 REM /X FILE TYPE (RD/WR) : #23 (4) OR $51 (1) 
210 POKE #2BE1, #23: POKE #2BDC, #23 

300 REM /Ж ЖІ PAGE FORMAT 

310 POKE #1F40,#42:REM PAGE 1 

320 POKE #1F3A,#42:REM FOLLOWING PAGES 

400 REM /* HARDCOPY = WAITSPACE (4L AND #P) 

410 REM POKE #1F36, #CD:POKE #1F37,#CE:POKE #1F38,#2C:REM YES 
420 РОКЕ #1F36,0:POKE #1F37,0:POKE #1F38,0:REM NO 
900 . REM /*** LAB USE ONLY Xxk£/ 

910 POKE #2F01,1:REM EPSON AUTO-LF 

1000 FOR I-O TO 2500: IF GETC=#20 GOTO “1100: NEXT 
1100 POKE %100,0:РОКЕ #101,0:CALLM 12000 
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van de foto’s van wolkenformaties, 


Voor meer informatie: 


H. Bakker 
Rijnstraat 28 
6811 EW Arnhem 
tel. 08985-451394 


111 INTERFACE HARDWARE 111 


Op het blokschesa in Fig. 2 kont linksboven het 2400 Herz 
signaal binnen van de tuner. Dit signaal wordt eerst gefil- 
terd en versterkt (Al resp. A2), daarna gelijkgericht en de 
condensator die hierbij wordt opgeladen, wordt aet een con- 
stante stroom ontladen. De Comparator A3 zorgt ervoor dat 
het zaagtand-achtige signaal over de condensator С wordt om- 
gezet in een binkspanning aet variable pulsbreedte. 

Verder zorgt het tiaer IC NE 555 ervoor dat de puls na ca. 
300 micro seconden in ieder geval weer laag wordt, ook al is 
het ingangssignaal te hoog in volume. 

Bij weergave van het opgenosen signaal zet OP AMP A4 de ais- 
vorade videopulsen weer om in een nette blokspanning, die 
via buffers № en NS naar de DAI gaan. 

Tevens triggert de positieve flank van deze pulsen een os- 
cillator gevorat door N2 еп N3. De blakspanning van deze 05- 
cillator heeft dus dezelfde frequentie als de videopulsen en 
tevens vallen van beide signalen de positieve flank samen. 





weersatelliet foto's op uw tv-scherm 


Sinds kort gebruik ik mijn DAI computer voor de weergave 
van foto's , afkomstig van weersatellieten. Het blijkt, dat 
de grafische mode 6 geschikt is voor het zichtbaar maken 
welke dagelijks door een 
aantal weersatellieten naar de aarde worden gestuurd. 


Op de plaatjes die tot nu toe via de DAI computer zijn 
geproduceerd zijn deze wolken min of meer duidelijk te on- 
derscheiden, maar ik denk dat zowel de software als de hard- 
ware nog verder verbeterd kunnen worden. 


Wanneer er meer DAlnamic leden zijn die hun computer willen 
gaan gebruiken voor het weergeven van satellietfoto’s, of 
die geinteresseerd zijn in het geheel van ontvangen en weer- 
geven van foto’s , kunnen zij kontakt opnemen met mij. 

Als veel mensen meer willen weten over deze fascinerende 
hobby, dan kan ik wat informatie toesturen aan de redaktie 
van DAlnamic voor plaatsing in de nieuwsbrief. 


Voor geinteresseerden: de kosten voor het 

ontvangen en weergeven van weersatellietfoto's bedragen 
ongeveer f 800,- (BFR 11500) en daarvoor heeft u dan een 
ontvanger, antenne en interface voor de DAI. 


Deze positieve flank zal later in het machinetaal progr anaa 
worden gebruikt als referentiestart voor het nemen van sa&- 
ples. 


Voor we de interface kunnen gebruiken, moeten we eerst net 
potaeter P3 de frequentie van de oscillator instellen op iets 
ainder dan 2400 Herz. Wie geen frequentiemeter heeft, kan 

ap het gehoor afgaan door eerst te luisteren naar de 2400 
Harz van een weersatelliet, en de oscillatorfrequentie iets 
lager dan deze frequentie in te stellen (ca. 2360 Herz). 


Als we nu een ontvanger aansluiten op de interface en we 
wachten tot we het geluid van een weersatelliet horen, dan 
aceten we eerst Рі en P2 zo instellen, dat de pulsbreedte 
varieert tussen ca. 100 en 300 microseconden. Ook dit is 
eventueel op het gehoor af te regelen door Pi zo in te stel- 
len dat het signaal naar de Tape rec. nag net zuiver klinkt, 
Maar een oscilloscoop is hierbij toch wel handig ... 

Pi bepaalt de versterking en P2 het contrast, 
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WEERSATELLIETEN FOTO’S OP DE DAI COMPUTER. 


De DAI Computer kan voor veel dingen gebruikt worden, aaar 
bovengenoeade toepassing zal velen van u vreemd voorkomen. 
Toch is het met vrij eenvoudige middelen mogelijk om foto’s, 
afkoastig van weersatellieten, zichtbaar te saken op een TV 
. schere., Wat hiervoor nodig is, zal in dit verhaal aan de or- 
de komen. 


Eerst iets over weersatellieten. Zij kunnen verdeeld worden 
іп globaal twee groepen. De eerste soort draait wet de aarde 
aee en staat daardoor stil ten opzichte van de aarde (dit 
heet Geostationair). Deze satellieten vinden we ор ca. 35000 
Ka hoogte loodrecht boven de evenaar. 

Doordat ze ten opzichte van de aarde stil staan, fotograferen 
ze steeds hetzelfde gedeelte van deze aarde. 


De tweede soort draait rond de aarde via noord- en zuidpool 
(ongeveer) en staan daardoor niet stil t.o.v. de aarde. Bo- 
vendien is hun vlieghoogte 'slechts' 800 - 1500 Ка. Met deze 
tueede soort wil ik ae verder bezighouden. 


Een gevolg van deze noord-zuid baan is dat dit soort satel- 
lieten slechts dan te ontvangen is, wanneer ze over West Eu- 
ropa 'vliegen' en dan nag maar gedurende aaximaal 20 ainu- 
ten. Bij iedere oawenteling verschuift de baan van de satel- 
liet 15 graden, zadat na een halve dag weer opnieuw ontvangst 
aogelijk is. De satelliet vliegt dan echter in omgekeerde 
richting. | 


Üs weersatellieten te kunnen ontvangen hebben we (u raadt het 
al) een ontvanger nodig. Wanneer u handig bent is zo’n ont- 
vanger zelf te maken. Later zal een leverancier genoead 
worden waar bouwpakketten en kant-en-klaar ontvangers te koop 
zijn. 


Het signaal wat we ontvangen hestaat uit een toon van 2400 
Herz en de eigenlijke video informatie zit in de aaplitude 
van dit signaal (Amplitude Modulatie AM). 

Wanneer we dit signaal gelijkrichten houden we sinusvoraige 
pulsen over waarvan de hoogte een maat is voor een licht- of 
donker niveau . 

De frequentie van deze toon is echter niet continu. Twee aaal 
per seconde wordt deze onderbroken door een toon van een an- 
dere frequentie, Deze korte toon geeft het begin aan van een 
nieuwe beeldlijn aan, want weersatellieten aaken eigenliik 
geen foto van de aarde, aaar zij ‘scannen’ deze lijn voor lijn 
af, net zoals een TV schera wordt opgebouwd. 

Per seconde zendt een satelliet dus twee beeldlijnen uit, 
maar dat geldt alleen voor de Russische satellieten, Aseri- 
kaanse satellieten zenden per seconde vier beeldlijnen uit, 
nl twee beeldlijnen van het zichtbare gedeelte van de aarde 
*wolken, en twee lijnen van het Infra Rode gedeelte . Hier- 
door kunnen tevens foto’s welke 'snachts ontvangen worden 
zichtbaar gemaakt worden. 

De sooiste foto’s komen echter van de Russische satellieten 
Meteor 120 en ~ 240, zodat we ons eerst met de weergave van 
deze foto’s zullen bezighouden, 


Het begin van iedere beeldlijn wordt door de satelliet aan- 
gegeven door een sink-puls. Gedurende een zekere tijd wordt 
het video signaal onderdrukt (vergelijk het TV signaal) en 
hierop zal een later te behandelen machinetaal prograasa 
reageren door te beginnen op een nieuwe regel. 
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Goed, wat we dus ontvangen is een toon van 2400 herz welke 
in amplitude (sterkte) varieert, Па later de foto aeerdere 
aalen te kunnen weergeven neaen we deze toon tijdens de 
ontvangst op een cassette recorder of (beter) bandrecorder 
op. 

Als we de toon rechtstreeks op de band zetten, zullen we 
echter later bij de weergave last kunnen krijgen van zg. 
Drap-outs. 

Dit is het kort weg vallen van het geluid tijdens weergave 
door stof of slechte plekken op de band. Als het geluid weg- 
valt zien we dat aeteen in een kleurverandering op het TV- 
schera. 

Oa dit te voorkomen vora ik het signaal eerst om tot pulsen 
die in lengte afhankelijk ziin van de amplitude van het ont- 
vangen signaal. Met andere woorden: als ik na het gelijk- 
richten van het 2400 Herz signaal een 'halve Sinusvormige 
puls’ krijg aet een HOGE amplitude, dan zet ik een puls set 
een LANGE pulsiengte op de band. 


De hard-ware die ervoor zorgt dat de video inforaatie wordt 
omgezet naar pulsen van variabele lengte, is niet erg inge- 
wikkeld. Ik zal hier later verder op ingaan, 

Als we een geslaagde opname hebben gemaakt, staan op de band 
pulsen, die bij weergave naar de coaputer gaan. De coaputer 
heeft behalve deze pulsen nog een tweede signaal nodig, nl 
een klok signaal. Dit tweede signaal wordt in de weergave 
hardware opgewekt door een oscillator die precies dezelfde 
frequentie heeft als de video puls-frequentie. 

Wat de computer nu tijdens weergave van de foto aoet doen 
is het volgende: 


| - Nacht tot de video-infarmatie gedurende enige 
tijd laag blijft (trigger sink puls), 


2 - Kijk hierna steeds na het hoog worden van de 
klok hoe lang de video puls duurt, 


3 - Maak afhankelijk van de puls-lengte een witte, 
donker-grijze, licht-grijze of zwarte punt 
als dit kan (zie verder,,), 

Verder aoet de computer natuurlijk de aldus gemaakte punten 
(dot's) op de juiste plaats op het beeldschera plaatsen, en 
stoppen als het schera vol is. 

Het aantal pulsen (halve sinusvormige video-pulsen) per 
beeld lijn is echter groter dan het aantal dot's wat de DAI 
op een lijn kan plaatsen. 

Twee beeldlijnen p/sec aet een pulsfrequentie van 2400 Herz 
betekent per beeldlijn een kleine 1200 pulsen (2400/2 - sink 
puls ). De DAI kont niet verder dan 336 dots. 

Daarom plaatsen we ten eerste een gedeelte van de beeldlijn 
niet op het schera ,en ten tweede plaatsen we van het wel 
zichtbare gedeelte slechts de helft (1 video puls WEL, de 
volgende NIET enz.) . Met een INPUT statement is de grootte 
van het linker gedeelte van het totale heeld wat avergesla- 
gen aoet worden, in te voeren. 

De computer zal na de sink-puls eerst dit gedeelte over- 
slaan, vervolgens de helft van het vervolg van de beeldlijn 
displayen tot de regel op het schera vol is, en tenslotte 
weer wachten op de volgende sink-puls. 

Na 256 lijnen keert het machine taal programma terug naar 
BASIC en wacht tot een toets wordt ingedrukt, 


wordt vervolgd... 
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SR IDDIE DE OO LEO 





REM t — Deaonstratie programma voor het weer- t 
REM 1 geven van foto’s afkoastig van t 
REM £ weersatellieten t 
REM 1 t 
REM 1 (c) H. Bakker 1982 t 
REM 1 085-451394 t 
REM ипини 
REM t Een paar gedeelten van dit DEMÜ'prograaaa D Se 
REM t gebruiken FGT (haofdtkleine letters ) t 
REM t FBT is being used in this program !! t 


НИЕТТЕНЕДІ 

PRINT CHR$(12):MODE O:COLORT 8 0 8 O:PRINT :CLEAR 5000:DIM AZ(100.0),F(16.0):COLORG 1 5 10 15 
PRINT " Weergave van weersatellietfoto's via de DAI computer" 

PRINT sPRINT zENVELOPE 1 1,10;:3,20:5,30:7,40:9,50:11,60:13, 70315, 100; 
PRINT " Er zijn ainstens vier weersatellieten, die rond de aarde" 
PRINT “draaien aet een omlooptijd van ongeveer 100 ainuten." 

PRINT "Na iedere oawenteling is zo'n weersatelliet ongeveer 25 gra-" 
PRINT "den in westelijke richting verschoven en zal daardoor eens" 
PRINT "in de 12 uur over W. Europa 'vliegen'. Aangezien weer-" 

PRINT “satellieten een baan om noord- en zuidpool volgen, zal ееп“ 
PRINT "satelliet eens per 12 uur van noord naar zuid, en de vol-" 
PRINT "gende keer van zuid naar noord overyliegen." 

PRINT :PRINT " Dit brengt ons bij het eerste problees : wanneer een satel-" 
PRINT "liet richting zuid vliegt, is het beeld in orde (noord-" 
PRINT "pool 'hoven'), maar in het andere geval moeten we bij het" 
PRINT “weergeven van de foto het beeld 'oadraaien'. ":PRINT 

PRINT "Weersatellieten maken eigenlijk geen foto’s van de aarde," 
PRINT "maar ’scannen’ de aarde lijn voor lijn, Men kan het verge-" 
PRINT "lijken aet de aanier, waarop een televisiebeeld is opge-" 
PRINT "bouwd.";:INPUT * — (return) 1D$:PRINT CHR$ (12) 

PRINT "Deze lijnen worden continu naar de aarde gezonden in de" 
PRINT "vora van een 2400 Herz toon, welke in amplitude is geaodu-" 
PRINT “leerd aet het videosignaal. Kleine amplitude betekent" 

PRINT "lichte kleur, grote amplitude geeft de kleur zwart veer, “:PRINT 
PRINT "In het algemeen zullen de zee en het land een donkere kleur" 
PRINT “geven (behalve sneeuw ор b.v. bergen), en zijn wolken“ 

PRINT “zichtbaar als witte of grijze vlekken. “:PRINT 

PRINT "Het satellietsignaal wordt tijdens ontvangst eerst oagezet" 
PRINT "naar een blokspanning set variabele lengte (duty cycle}, en" 
PRINT "wordt daarna opgenomen op de band. Dit oszetten naar een" 
PRINT "blokspanning veraindert het effekt van drop-out' s. *: PRINT 
PRINT “Aan het begin van iedere lijn stuurt de satelliet heel * 

PRINT "even een andere toon, waarop de weergave apparatuur rea-" 
PRINT “geert set het beginnen op een nieuwe regel (vergelijk RE-" 
PRINT "TURN & LINE FEED), * 

PRINT "Goed, laten we aannemen dat we erin zijn geslaagd aet een * 
PRINT "ontvanger het signaal van een weersatelliet hoorbaar te sa-" 
PRINT "ken." 





400 
410 
420 
430 
440 
450 
440 
470 
480 
490 
300 
810 
320 
330 
340 
350 
360 
370 
580 
390 
400 
610 
620 
621 
622 
625 
626 
530 
640 
850 
640 
470 
680 
690 
700 
710 
720 
730 
740 
750 
740 
770 
780 
790 
800 
810 
820 
830 
840 
850 
835 
850 


PRINT " Dit geluid klinkt ongeveer z0....:. (return)"; 


FOR Кігі TO 100:A2(X1)-50R((10000.0- (100,0-X2)1 (100. 0-32) -Y232) /2. O :NEXT. XX: INPUT D$ 
MODE GAsQZ=XMAX/2. 0: РКІНТ CHRS$(12):CULORT i 8 B Q 

PRINT :PRINT ". 11 GELUID OP KANAAL Í & 2 tt" 

FOR XZ=1 TO 50:DOT RNDCXMAX),RND(YMAX) 15:NEXT XZ 

FOR X2-1.0 TO 100.0:S0UND 1 1 10 3 FREB(30.0112) 

DRAW QU-AL(K2Z) ,754 12. 02+020X7),75+1Z 10: NEXT. XZ 

FOR X222 TO 100:17=15:1Р X4=75 THEN GOSUB 180 

SOUND i 1 10 1 FREQ(2400.0):FILL. QZ-A2(X2) -30,0, 42073 @7-АШ(ЇЇ)-5.0,11+73+7/4 1 
FILL QZ-52(12)-10,0, 32 4X1/3458. 02-02 (021 14,0, X£411/3462 5 

IF X2225.0 THEN 60508 550 

DRAW 02-521X2)-10.0, Y 4X2/3*60 DA -1.0, 31475. Z% 

IF 7%=15.0 THEN WAIT TIME 8:22-1:60T0 510 

SOUND i 1 8 0 FREB(1300.0) : NEXT X2:5QUND OFF 

WAIT TIME 100:60T0 620 

PRINT :PRINT " Dit is de 2400 Herz toon waarvan de amplitude veranderd" 
PRINT "overeenkoastig de beeldinforaatie (Aaplitude geModuleerd)." 
WAIT TIME 250: RETURN 

PRINT CHR$(12):PRINT " Dit is een toon van een andere frequentie, welke het begin" 
PRINT "van iedere viden lijn aangeeft (trigger burst).* 

PRINT “Deze toon is kart hoorbaar aan het begin van iedere lijn."; 

WAIT TIME 250:RETURN 

REM 

FOR XZ=1.0 TO 15. 0:F O2) -8 INCOUZEPIO/8, 0) :5DUND. 1 1 15 3 FREG((IT. 0-X2) $100.01) 
SOUND 2 1 15 3 FREB(XR$100. 0) s NEXT. Y2:02-XMAX/2.0:S0UND OFF 
U-XHAX:5P-6.0:CC715,0: 121.0 

MODE S:ENVELOPE 0 15 

60508 2000 

C-GETC:WAIT TIME 10 

CzGETC:IF C=0.0 THEN 650 

PRINT CHR$(12):COLORT 8 Ó B O:MODE 0 

PRINT "De computer ontvangt dus bij weergave van de band +/- 2400" 
PRINT “аза! p/sec. een puls van wisselende lengte. De taak van de" 
PRINT *coaputer is te herkennen wanneer de puls begint (herkennen" 
PRINT "van de positieve flank) en dan te kijken hoelang de puls" 

PRINT “hoog blijft. Afhankelijk van de pulslengte vorat de computer" 
PRINT “een zwarte, donkergrijze, lichtgrijze of witte punt." 

PRINT :PRINT "Het zal duidelijk zijn dat dit vorsen van de punten niet" 
PRINT "te veel tijd in beslag sag nemen oadat de computer klaar* 

PRINT "aoet zijn als de volgende puls begint. Daarom zal het niet" 
PRINT “eenvoudig zijn een machinetaal programaa te schrijven wat" 
PRINT "zo snel is dat de computer gebruik kan maken van de 16 kleu-" 
PRINT "ren mode. Maar zelfs aet de vier kleuren die wel mogelijk" 
PRINT "zijn, zien de resultaten er best acceptabel uit, ":PRINT 

PRINT "Bij het machinetaal programaa hoort een kort BASIC program-" 
PRINT "aa, In dit programaa wordt u gevraagt hoeveel punten van" 

PRINT “iedere beeldlijn u wilt overslaan (SKIP LEFT PART) en ver-* 
PRINT “volgens dient u in te voeren van welk type (Amerikaanse of" 
PRINT "Russische satelliet) u een fato wilt weergeven." 

PRINT :PRINT ` INPUT * (return) *:D$:PRINT CHR$(12) 

PRINT “Hierna warden door dit BASIC programaa diverse va-" 

PRINT “riabelen ten behoeve van het aachinetaalprogramma gepoked." 
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870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
991 
992 
993 
994 
995 


` 1000 
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1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1091 
1095 
1098 
1099 
2000 
2001 
2002 
2003 
2004 
2005 
2008 
2920 
2030 
2035 
2040 
2042 
2044 
2045 
2050 
2070 
2080 
2999 
5000 
3002 
3004 
3006 
3008 


PRINT “Dan gaat de computer naar MODE 6 en begint het machinetaal-" 

PRINT "programma met het starten van de bandrecorder en wacht" 

PRINT "even tot de bandrecorder op snelheid is gekomen. Na ongeveer" 

PRINT "i seconde begint het weergeven nadat de computer een juist" 

PRINT "triggersignaal heeft herkent,” 

PRINT "Als het beeld wat verschijnt te licht of te donker is, dan" 

PRINT "kunt u tijdens het weergeven aet de toets CURSOR LEFT het" 

PRINT "beeld donkerder, en aet CURSOR RIGHT het beeld lichter” 

PRINT "krijgen." 

PRINT "Het indrukken van de TAB toets stopt het aachinetaal pro-" 

PRINT "graama. Druk niet op de BREAK toets, want dit stopt wel" 

PRINT "de bandrecorder, maar niet het pragraaaa." 

PRINT "Als het beeld vol is, stopt de band en springt het prograa-" 

PRINT "aa terug naar BASIC." 

PRINT "De klokpuls maet u aansluiten ор BIT 0 van PORT 0 (pin 14" 

PRINT "van de DCE bus) en het video signaal Кові binnen op ріп" 

PRINT "ié van de DCE bus. Verbindt de andere é bits van port 0 set" 

PRINT "nul via een weerstand van 1000 ohs. ":PRINT : INPUT * (return) "10$ 

MODE &:FOR X=1.0 TO 100.0:50UND 1 1 13 3 FREQ(50.0IX):NEXT X:COLORG 13 9 6 2 

A$-"t WEERSATELLIET ONTVANGST 4": 1=1,0:1=200, 0:5P=6. 0: CC 22. 0: DF-1. 1: FF=1.0:FC=2,0:60SUR 5000 
A$="Voor informatie over ontvangers :':1210.0:Y2150. 0: C29, 0: DFz0, 91FF21.0:G05UB. 5000 
X=20.0:60=2.0:A$="ta. МЕСОМ": Y2130. 0: 60508 5000 

A$=" Coendersstraat 24":Y=110.0:605UB 5000 

A$=" 9780 АА Bedua":Y=90.0:50SUB 5000 

A$="Tel: 05900 - 14390": ¥=70.0:G0SUB 5000: FF=0.0 

Y210.0:CC26.0:8$z" of : Н. Bakker Rijnstraat 28 4811 EM Arnhea*:Y-40.0: 60508 5000 
Ag=" Tel: 085 - 451394": Y=30,0:G05UB 5000 

A$="=":FOR X=1.0 TO XMAX-6.0 STEP 10.0:Y=1,0:605UB 5000: Y=YMAX-10.0560SUB 5000: NEXT 
A$="Bedankt voor uw aandacht - Tot ziens":X270,0:Y210. 0: CC-6. 0: FFz1, 0: GOGUB 5000 
C-GETC:WAIT TIME 20:C-GETC 

С=ВЕТС: ІР C-0.0 THEN 1098 

END 

COLORT 08 B O 

Y=245.0:A$="Kleine amplitude geeft witte kleur ,":60SUB 5000 

Y=230.0:A$="Grote amplitude geeft zwarte kleur :":605UB 5000 

Y=145.0:A$="Klok voor de synchronisatie :":G05UB 5000 

Y=95.0:A$="Signaal afkomstig van Tape recorder :":G0SUB 5000 
Y=50.0:A$="Dvereenkosstige kleur van de punt op het schera :":605UB 5000 
Yz2.0:8$-"( DRUK OP "RETURN? VOOR VERVOLG )“:%=50.0:CC=8.0:G0SUB 5000 

DRAW 0,195 ХМАХ, 195 10:RZ=19:605SUB 5000 

FÜR 12--9.0 TO O:P-AB5(2.0111)-9.0 

FILL RZ*135,20 R%+43,40 X4+13.0:50UND 1 0 ABS(XZ) 1 FREQ(2400, 0) 

DRAW R2Z+2, 115 R%+16,115 15:DRAM RZ*16,115 R%+16,135 15:DRAM RZ415,135 R2432,135 15 
DRAW R%+32, 135 R%+32,115 (är DRAN Rip, 65 R%+16,65 15:S0UND OFF 

DRAW R%+16,65 R%+16,85 IS:DRAW RZ+16,85 RZ+32+P,85 15 

DRAW RZ+32+P,85 RA+324P,65 15 

FOR YX={.0 TO 16.0: Rz 15 202421 Y24024120 

DOT RZ+/Z+5,F(Y2)41743.0+195.0 15 

NEXT:NEXT 

WAIT TIME 200:RETURN 

SOUND 2 1 10 A FREQ(0. 0114100. 0) sC=FCRE40+CC: FZFFEEIBOHPE HAQHIFEEZOHVEUELOHVE 141 OFDF 
POKE #2F0,C:POKE #2F1,F 

POKE #2F2,X MOD 256:POKE #2F3,1/256:POKE #2F4,Y 

POKE #2F5,5P:POKE &2F6, ID 

CALLM #300, 4%: SOUND OFF :RETURN 








DAI PERSONAL COMPUTER 


SCHEMATICS 
Sheet 1 CPU 
Sheet 2 RAM DRIVE 
Sheet 3 RAM 
Sheet 4 TIMING 
Sheet 5 ROM + 1/0 
Sheet 6 MAIN BOARD GENERAL LAY-OUT 
Sheet 7 SOUND 
Sheet 8 PADDLE 


Sheet 9 B/W TV CARD 

Sheet 10 PSU 

Sheet 11 TIMING 

Sheet 12 PAL COLOUR CARD LAY-OUT 
Sheet 13 PAL COLOUR CARD 

Sheet 14 RGB CARD LAY-OUT 

Sheet 15 RGB CARD 


Now available from your club : the complete DAIpc schematics, 
drawn by Mr Boerrigter and co during many,many sleepeless nights... 
Most sheets measure about 40cm x 60 cm,in professional styling. 
order from 

DAInamic 

Heide 4 

3171 WESTMEERBEEK 

BELGIUM 
price of the complete package : 850 Bfr including mailing and VAT. 
This hardware information is available for personal use only ! 


How to order DAInamic software 
send cheque in belgian francs or cash together with your order to 
DAlnamic Heide 4 3171 WESTMEERBEEK BELGIUM. 


Contact address for contribution,membership,backnumbers,the best of 
DAInamic 80/81 
Bruno Van Rompaey Bovenbosstraat 4 3044 HAASRODE BELGIUM 


"The BEST of DAInamic" will be available in august 82. You can order 
now all programs that have been published in these issues 
"T80/81" : price : 850 Bfr. (57 programs on cassette/DCR) see conten’ р. 104 


Also available on tape : the 23 programs published in this issue: 
save yourself hours of typing for 500 Bfr. 
name of the package : "NIO", 


p.v.b.a. A.C.S. 


Meensesteenweg 49 
8800 ROESELARE 
Tel. 051/21 30 89 


Beenhouwersstraat 87 
8000 BRUGGE 
050/33 08 01 


Guibernau Electronica, sa. 


Sepulveda 104 
BARCELONA-15 (SPAIN) 
Tel. 243-34-32 


E 


LEGOTRONICS 
Я | š EL Ue 
~ Kon. Albert | laan 97 
` 8800 ROESELARE 
Tel. 051/22 01 03 


MICRO SELECT 


Toutes applications micro-électroniques 
Vente de systemes et composants micro-processeur 


3, rue Delcloche 
A020 LIEGE 
Tel. 041/41 28 10 


Publishing House J. VAN IN 
att. : L. CAMPS 


Educational Software 
primary - secondary schools 


Grote Markt 39 
2500 LIER 
Tel. 031/80 55 11 


E 


D.I.L.-ELEKTRONIKA, 
MIJNSHERENLAAN 108, 


3081 CH ROTTERDAM 
Nederland 


TELEFOON: 010 - 854213 


IDS 2000 


Rue de la Bonne Femme 11 
4030 GRIVEGNEE 
Tel. 041/41 32 20 


MEMOCOM 


Mini-digitale cassetterecorder 


Postbus 2924 
3000 CX ROTTERDAM - Nederland 
Tel. 010-148284 ` 


Bennenbergweg 1 
3221 NIEUWRODE (bij AARSCHOT) 
Tel. 016/56 87 70 
DAI - Epson Printers - Memocom digitale cassette 
recorder - Barco kleurenmonitor - Software - 
Microlectuur - Service 


TEVETRONIC 


Avenue Milcamps 57 
1040 BRUSSEL 
Tel. 02/736 61 24 





